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CHAPTER  I . INTRODUCTION 


This  is  the  second  of  two  volumes  describing  the  features 
of  the  Inventory  System  Simulator  (INSSIM) . INSSIM  is  a 
FORTRAN-based  model  of  a general  single-echelon  inventory 
system.  The  model  was  specifically  designed  to  evaluate 
alternative  forecasting  and  inventory  management  policies 
proposed  for  use  in  the  EOQ  Buy  Computation  System  (D062) . 
Volume  I of  this  report  describes  the  philosophy,  organ- 
ization, and  input/output  features  of  INSSIM.  This  vol- 
ume documents  the  statement  listings  of  each  INSSIM  pro- 
greun,  and  provides  narratives  describing  the  function 
of  each  of  these  routines. 

The  routines  are  presented  in  alphabetical  order.  Doc- 
umentation for  each  routine  consists  of  a program  narra- 
tive, and  a listing  of  the  FORTRAN  code  for  that  routine. 
Additional  comments  are  included  as  a part  of  the  FORTRAN 
code  for  the  more  complex  routines.  Definitions  of  major 
INSSIM  variables  are  documented  in  Volume  I,  and  familiar- 
ity with  the  contents  of  Volume  I is  assumed. 


Subroutine:  BUDGST 


Function : 

This  routine  updates  period  counters  and  obligation 
accumulators,  and  creates  two  budget  review  events. 


Description: 

This  routine  is  called  at  the  conclusion  of  each 
budget  revision  interval.  It  zeros  the  accumula- 
tor lOBLIG  used  to  record  obligations  within  the 
current  budget  period.  It  then  creates  type  6 
and  type  7 events,  and  puts  these  events  on  the 
Future  Events  List.  These  events  are  used  to 
revise  buy  guidelines  within  the  budget  period, 
and  to  signal  the  beginning  of  a new  budget  period, 
respectively.  Finally,  the  budget  period  counter, 
MBPER,  is  incremented. 
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1 i;-08-76  20  .j9'i  CiQdrr 

siJBPCuriNF  Bijostr  fi  / 

c at  Tur  coUfLUSinN  df  fach  tiiiDSur  RRvrsinM  ivtervax.thts  ?nu’'iNs 

C IS  called  n i:pDATR  PERT"»D  counters  fVO  obligation  ACCU^'1'LA’'OPS 

COitffOF/IOPLlG/IOoLrG 
CCi'1HONVlTK^/irH\i 
COHMOK/TDTriO/ IOThO 
CONnOK/NbPEP./jJBPKP 
common'/itdiv/iipiv 
coiiMOK/iXi  -iE/  rriHT: 

C RFSFr  C'^UVTBBP  AMD  CALL  GUIDE  I’D  RESET  GUIDELINES 

IOBLIG=0 
ITDlVsiTlr'E+13 
CALL  FKTi:;R(  rTDlV,7,0,0,0) 

C PLACl  BUDSFI  FEVIEW  TRAESACmN  ON  f"  LIST 

12  ITHQ^ITHQ+rpTKa 

CALL  ENTiiR(IlK2,8,0,0,0) 

C UPDATE  period  COUNTER 

NBPER*NBPER*  1 
RETURN 

END 


I 

I 
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Subroutine;  CANCLB 


Function: 


This  routine  simulates  the  cancellation  of  backorders 
by  customers  which  have  been  forced  to  wait  an 
unacceptably  long  period  of  time. 


Description ; 


VVhen  this  routine  is  called,  the  stock  status  of 
each  item  being  simulated  is  reviewed.  If  any  item 
has  a backorder  that  is  older  than  MBODAYS  days, 
routine  CANCLB  takes  action  to  reflect  cancellation 
of  the  associated  requisition  by  the  requesting 
customer.  To  do  this,  data  elements  defining  the 
backorder  are  removed  from  the  Backorder  File,  and 
Subroutine  CUM  is  called  to  update  the  associated 
performance  statistics.  Statistics  affected  are: 
IRATON,  ICANCL,  IBACKT,  and  IBACKI . 

Finally,  CANCLB  creates  a new  type  3 event  to 
occur  at  time  ITCANB  plus  IDCANB. 


r»nr»o  nnn  o on 


)1  12-08-76  19,916 

SUBROUTINE  CANClB 
COMHON/IbAcPT/IBACPT  C20  0 ) 
CyMM0N/ICANCL/ICANCL(30,3  ) 

COMMON /I PRIOR/I PRIOR (200 ) 
COMHON/laiYB/IOTYB ( 200 ) 

COMMON /itMb AC/IXMB AC ( 200) 
CoMMON/ILOCBk/ILOCBK ( 200 ) 
CoMMON/NLOCaK/NLOCPK 
COMMON /NbOPT/NbOPK  50) 

COMMON /NBOTU/NPOTU (50 ) 

ccmhon/itime/itime 
COHMON/ITDAT/ITDAY 
COMMON/MBODAy/MBODAY 
common/ItcaNb/xtcane^idcanp 
COMMON/IOBuG/IDBUG 
COMMON/NITEM/NIXEM 
COMMOK/IBACKt/IBACKTI JO, 3) 
common /IB ACKi /IB ACKI (30,3) 

COMMON /IRATON/IR A TON (30,3) 

DO  5o  N-1,NlTMM 
50  CONTINUE 

IPT=NBoPT(N) 

JPT*IPT 

ARE  THERE  ANT  BACKORDERS  OK  UtM  N 
1-0  CONTINUE 

IE ( NBOPT t N ) .LE. ■ ) GO  TO  500 

no  continue 

compute  BaCKORdeB  age  in  dans 
IAGE*(  ITIME-ITMBAC  ( JPT)  ) /ITT' AY 
IFdAGE.GT.MBODAY)  GO  TO  IS" 

is  JPT  the  last  backordn’-  on  the  chain 

140  ir(IBACPT(jPT).LE,i  ) GO  TO  >'>0 

UPDATE  Indices 
1PT*jPt 

JPT®ItJACPT(  JpT) 

GO  TO  no 

CANCEL  backorder  LOCATED  AT  JPI 


p.  I 


C update  statistics  to  REFT.NC'T'  cancelation 

150  CONTINUE 

IgTYalQlYB ( JpT ) 
jQTY*-lgTY 

NbOTU(N'  )«n-bOti;(N)-iQTy 
CALL  CuK(IRATON,IQTYiN) 

1457  DO  LOOP  INDEX  N MaY  NOT  BE  REDEEJNEn  I CALL  OR  ABNORMAL  FUNCTION 
call  CUM(lcANCL,lgTY,N) 

1457  DO  LOOP  INDEX  N HaY  NOT  BE  REDEFtnED  IN  CALL  OB  ABNORMAL  FUNCTION 


1:,!-08-7d 


19.916 


C/\t^CLS 

P -2 


CALL  CurtdBACKT,  JUTy,N  ) 

1457  l;0  LOOP  INDEX  N MaX  NOT  BE  flEDEFJ  NRO  IN  CALL  OH  ABNORMAL  FUNCTION 
If  {IPRrOR(jPT).EO,  1 ) CALL  Cf'M  ( TBADKI,  JQTY,  N ) 

1457  DO  LOOP  INDEX  N MaX  NOT  BE  PEDEFthFO  IN  CALL  OK  ABNORMAL  FUNCTION 
IF (IDBUG.NEt  1 ) GO  TO  160 

WRITE (6» 8000 J ITIMt» N» lOTX, TPRIOR ( JPT)»ITMBAC{JPT) » JPT 
8000  F0RMAT(7h  CANCEL , 1 1 C , 516 5 
160  CONTINUE 

C RECORD  location  JPT  aS  AVAILABLE  FOR  FILING  OTHER  BACKORDER  DAl 

WL0CBK  = NL0CBK'*’1 
ILOCBK(NLOCBk)=JPT 

C IS  jPT  THE  FIRST  BACKORD^P  ON  IHE  CHAIN 


ir( JPT,NE,NBoPT(N) ) go  to  170 
NB0PTU)=IBACPT(JPT) 

GO  TO  50 


C IS  JPT  THE  LAST  ENTRT  ON  THE  CHAIN 

170  CONTINUE 

IF  (IBACPT(  JPT)  .NE,-')  GO  TO  180 
C SET  IPT  As  LAST  ON  THE  Cv-AIN 

IBACPTdPD^O 
GO  TO  500 
180  CONTINUE 

C then  JPT  IS  IN  THE  MIDDL'  OF  ThE  CHAIN 

IBACPT(lPT)=It)ACPT(JPT) 

JPT=IfaACpT(IPT) 

GO  TO  110 


C 

C create  next  REVIEW  EVENT 

C 


5('0  CONTINUE 

itcanbbitcanb-i-idcanb 

CALL  EnTER(ItCAnB,3,0»0»0) 

Return 


Subroutine:  CUM 


Function : 


This  routine  updates  the  action,  units,  and 
dollar  counts  associated  with  the  statistic 
ISTAT. 


Description ; 

The  variable  KFStl  defines  the  number  of  the 
items  involved  and  IQTY  defines  the  associated 
quantity.  If  IQTY  is  negative,  the  action  count 
is  decreased  by  one.  The  units  and  dollar  counts 
are  always  increased. 
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Subroutine:  CUriB 


Function : 

This  routine  updates  the  units  and  dollar  counts 
associated  with  statistic  ISTAT.  The  actions 
count  is  not  affected. 


Description ; 

The  variable  KFSN  defines  the  number  of  items 
involved  and  IQTY  defines  the  associated  quantity. 
When  called,  Subroutine  CUMB  updates  the  units 
and  dollar  counts  of  statistic  ISTAT.  The 
actions/FSN  count  is  not  affected. 
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Subroutine;  DEMPAR 


Function; 

Subroutine  DEMPAR  is  called  at  the  beginning  of  each 
simulation  quarter  to  generate  the  specific  requisi- 
tion and  serviceable  return  events  to  occur  in  the 
current  quarters. 


Description ; 

In  DEMPAR,  the  variable  IDPER  is  first  incremented. 
This  variable  defines  the  historical  period  in  the 
Demand  Driver  File  to  be  used  in  generating  demand 
activity  in  the  current  quarter. 

Next,  DEMPAR  generates  type  4 event  to  represent 
the  arrival  of  serviceable  returns  within  the 
quarter.  At  present,  it  is  assumed  that  all 
serviceable  returns  are  generated  one  month  after 
the  beginning  of  the  quarter. 

Subroutine  DEMPAR  next  generates  specific  requisi- 
tion events  to  occur  in  the  current  quarter,  and 
places  these  events  on  the  Future  Events  List, 
Subroutine  GETREQ  is  used  to  generate  requisition 
sizes  with  the  same  probability  distributions  as 
observed  in  AFLC  inventory  systems.  See  Volume  I, 
Chapter  VI,  for  a detailed  discussion  of  the 
demand  generation  process. 

Finally,  DEMPAR  generates  a type  12  event  to  occur 
at  a time  IDPER  in  the  future,  and  places  this 
event  on  the  Future  Events  List.  This  action  causes 
the  next  call  to  DEMPAR. 


DEMPAR 


' < 3 


20 

3Pi 

5? 

7f' 

pp- 

9(? 
1^2 
lir 
I2n 
I3P 
1 'P 
15- 
IfP 
17?! 

19? 
2?? 
21  ? 
222 
232 
2/’2 
252 
2<^2 
270 
2'^0 
292 
300 
310 
320 
330 
3 <10 
350 
3''^ 
370 
370 
300 
400 
410 
420 
430 
4/10 
450 
4f0 
470 
470 
490 


'■  irFf'T  ''■pl27o,XRS/nEMMv  DFMPAR 

f FORTY  TFCK 

T PR'^'FL  C*,W,S  ,RFOS/DEMPAR  .0 

f RE!*inTE  P*,AC 

T RF'^'niE  $$,AC 

C rE^’PAR  FOP  PODSI!^ 

SUBRO'ITI  f'F  DEMPAR  (IDPEP,  I P4,IP5) 

CO'^MO'  /I  GBljn/I  GBLJO 
CO'/'MO'  /ITIMF/ITIME 
Cpvyo'VlTWEEK/ITWEEK 
Crwrf/iTMr.'TH/ITMMH 
COvvo'VITGTR/ITCTR 
COM’^O’/ITyFAR/ITvEAP 
CpMvo’  /‘lITEM/f'ITEM 
Cnvvo'  /f’DE'-T/FDEYTCl  ) 

COYMO'VIDEM‘'D/IDEMNn(  1 ,24) 

CO-^-^Of/IRETUR/IRETilRd  ,24) 

C0'<'^0”/IREC/IREO(  I ,24) 

IFCIGB'JG.  f'E  . 1 ) no  TO  25 
Iv:ITI'*'F/ITvFAR  +1 
IGT:ITIME/ITCTP  +1 

ITW: (ITIME-(lv-! )*ITvEAR )/ITWEEK  + 1 
RITF(P,103)lv,ICT,ITW 

103  '0R’»'AT(12H  DEMPAR ,5X,BHvEAP  NO  . , 1 3 , 5X  , 7HPTR  Nn.,I5,5| 

1 "0.,I3) 

25  CO  TirUF 
C 

C INCREMENT  PERIOD  COUNTERS 

C 

IPPER:irPER+I 
DO  100  ‘ d ,NITE'*' 

IOTvrIDE'^‘’DC',IDPER) 

IRETdRETURff  , IDPER) 

IRG:IREG('-.IDPER) 

IFCIGBU^.EG.l )WPITE(f ,r013)N,NrFNTCN)  ,irPFR,IPTv,IPET,IRr 
c-013  F0RMAT(4X,  '****rEMPAR--N:  ',15,  ' NPENT  : ' , I 5 ' I DPER  : ' , I 5 , 
i ' IDEMNDi  ',  15,  ' IRETPN:  ',15,  ' IPEd  ,1*^) 

IFf  "DE*  T(  ")  .LF  .0)  CO  TO  1 00 
C 

C GENERATE  SERVICEABLE  PFTIIPNS,  IF  ANv 

C 

IF(IRET.LE.0)<'O  TO  30 

ITdTIME  + ITM'TH 

CALL  E-'TER(IT,4,n,IRET,0) 

30  C0  TP'UF 
C 

c reflect  recijistion  fop  item  n 
c 


IFCIGTv  .LF.f^)  "^0  TO  100 
ITOTrO 


DEMPAR  (CONT) 
b 


'PTAIN  A REPIIISITIOM  SI7E  IP  Bv  (viOflTE  CARLO 


50  RrRAf'PUC.C) 

CALL  -ETREG(R,IOTv  JPC) 

ITEwPrITOT+IRG 

IR:IRG 

IFCITEMP  .LE.IGTv)  HQ  TO  KO 


: Lir^IT  LAST  PEOUISITIOM  SO  THAT  TOTAL  OErANP  IN  Gff 

: FCUALS  lOTv. 

IR:IGTv-ITOT 

PETERWIPE  ARRIVAL  TIME  FOP  THIS  PEOUISITIOM 

c 0''TI  r iJE 

IT:ITIME+RAMDU(.2)*FL0AT(ITG'TR) 

IFdGBUG.EO.  I )"PITF(S,S023)IT,N,R  ,IRO,IR 
^023  I OR"^AT(i!iX,  '♦♦=t^*DFMPAR--IT:  ' I 10,  ' N=',IiS,'  R:'.F5.3, 

'•  ' iriTAL  PEG-SIZE:  ,1^.'  FI  NAL  PEG -S I 7F:  ' , I / ) 

CALL  F-'TER(IT,  1 ,M,IR,  I ) 

ITOT :ITOT+IR 

IF(ITOT.LT.IGTV)  GO  TO  50 

: *r***:,r+**cPEATE  mexT  PEMPAR  EVENT 

100  CO-TI'UJE' 

ITdTIME+ITPTF 
CALL  E'.'TEPdT,  12,IPPER,0,0) 

RFTUR'' 

F'P 


SUBROUTIME  OETREC(R,IGTv,IR) 

THIS  ROUTINE  DETERMINES  A REGUISITION  SIZE 
CORRESPONDING  TO  A CUM  PROP.  OF  P. 

pivE-'SIO"  IUCAT(F),CPP0P(10,R)  ,IRG(10,P) 

TATA  I UC AT/I, 3, 10, 31 , 1 00 , 3 1 6 , I 000 , 3 I R2/ 

PATA  CPROB/10+1 ., 

.-^0,  .0, 

.2  7,  .52,  .05,  .7P,  .Of , I , .02,  .05,  .PR,  1 .0, 

.23  , .53  , .70,  .78,  .02,  .90,  .92  , .07,  .00, 1 .p«o, 
.OR, .3P, .RO, .73 , .81 , .85 , .89, .03 , .98, I .00, 

.015,  .23,  .42,  .5R,  .R5,  .70,  .7R,  .02,  .07  j 

.012,.17,.31,.37,.48,.55,.R0,.78,.87,I.'^0, 

' .001 , .05 , .32 , .50, .RO, .RR, .8R, .OR, I .00. 1 .00/ 


DEMPAR  (CONT) 


< 


O-jr- 
P “’O' 

5PP 
31? 
3?r 
33P 
3 '■’ 
35? 
3 ■? 
37? 
3 

35? 
4?? 
/'  I ? 
42? 
•'7? 


C 

c 


?1? 

DATA  IHC/I?*1  , 

?2? 

9 

1.  2.  3, 

?3? 

0 

1.  2.  3. 

n/i'y 

P 

J. 

A 

1.  5,1?, 

{» 

I.  5.1?. 

fJtP- 

P 

1.  5.1?, 

(?  -7^ 

9 

1 ,2?, 4?, 

?5? 

r* 

1?? 

1 I? 

c 

ESTABLISH 

12'^ 

c 

1 3? 

DO  1?  I :1  .P 

1 

1-4  z I 

15? 

• rlHCAT  d ) 

1 

IFdGTv.LF.M)  ^0 

I 7? 

1? 

CP‘ TI HUE 

1 

c 

I ?? 

c 

DFTFRMpJF 

2?? 

c 

2 1? 

3? 

??■  TI  *’IIE 

22? 

ro  I r 1 J? 

23? 

IFCCPROBd  , !'*’).?£ 

2 4? 

4? 

Cn-TI  "''E 

r)C  ri 

ro-Ti'-iJE 

2 '-r- 

c 

7*3. 
^ . 5 


1? 


1?.I3,15.2?,?5.  3?, 


SET  REG'IIISITION  SI7F 

IF(i  .nr.  I )Gn  TO  p? 

IR:  I 
RFTffRr 

8?  Cn  TI''!(F 

If-  (I  .LT.  I?)?0  TO  I?? 

IR:IRC(I?,I''i) 

PFTUR? 

1??  CO‘’T  r’UE 

pppnBrCPRopd  ,r'^)-cPRnP(i-i  ,1’") 

PPROPiR  -CPROPCI-I  .IN) 

PRCrIRGd  ,II*')-IRG  (I -1  ,IM) 

IR:  IPGd-I  , I'«)+rFryfRPROP*nRe/pPRn?+.S) 
RETMR'’ 

F r 

‘TJOP 


Subroutine ; 


ENTER 


Function : 


This  routine  enters  transactions  on  the  Future  Events 
List,  and  updates  the  associated  pointer  variables. 


Description; 

Subroutine  ENTER  places  events  on  the  Future  Events 
List,  and  updates  the  associated  pointer  variables. 
These  transactions  are  subsequently  removed  by 
subroutine  REMOVE.  See  Volume  I,  Chapter  IV  for  a 
discussion  of  these  operations. 
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i 

i 

I 

I 

I 


'I  ,•>  - 1 I - 7 V 1 ) , 7 II 


r 

C 


t: 

r 

1] 

r. 


r 

r 


c 

c 


r. 

r 


c 


f:ii  trowT  I ii)(  I I 1/  f K I I ^ r n iM  .hi  s'j . ki.i  t y , « pw  i mn 
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Subroutine; 


ENTERS 


Function ; 


This  routine  records  backorders  in  the  backorder  file, 
and  updates  associated  pointed  variables. 


Description; 

This  routine  records  backorders  in  the  backorder  file. 
Backorders  are  stored  in  link  list  form,  with  pointers 
from  each  recorded  backorder  to  the  oldest  outstanding 
backorder  for  the  associated  item.  In  this  link  list, 
the  highest  priority,  oldest  backorder  is  stored  first; 
that  is,  backorders  are  recorded  on  a first  in  first 
out  basis  within  priority.  See  Volume  I,  Chapter  V 
for  variable  definitions. 

The  variable  NBOPT  (N)  defines  the  location  of  the 
oldest,  highest  priority  backorder  for  item  N.  When 
new  stock  is  received,  this  backorder  will  be  the  first 
requisition  to  be  filled. 
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subroutine  enters  (N.iaTT.lPBI.^TI.IE) 

THIS  Routine  backorders  pfouisitions  for  item  n 
lyTl-guANXITr  placed  on  backorder 
IPh  high-priority  RFOUISIIION 
I?BI»2  oTheEWiSe 

JXiME*  CLOCK  TIME  RFC  »kS  RECEIVED 
ComMON/NBmAX/NBmAx 
COMMON /NLOcBk/NLOCPK 
COMMON/NbOPT/NBOPT(50) 

COMMON/IBACPT/IBACPT(200  ) 

COMMON/IdFSNb/IDFSNB; 200  ) 

C0MM0N/I10CBN/1L0CBK1200  ) 

C0MMON/IPRiOB/lPRlOF(200  ) 

COMMON /I OTyB/IQXYB (200) 

COMMON/ITMbAC/ITMBAC (200) 

reserve  a storage  location  por  this  information 

IPT»ILoCBK(NLOCBK) 

NLOCBR,NL0CBk-1 

DIO  THIS  RlQUlSITIOH  CAUSE  THE  BACKORDER  FILE  To  OVERFLOW 
IF(NIOcBK,gE,0)GO  TO  20 
WRITE  ERROR  MESSAGE 
WRITK(6i91) 

91  FORMATJ lHO,20X,53HERPORr-BACKORDER  FILE  OVERFLOW, FILE  DUMP  ON  NEXT 
C PAGE) 

WRITE(6,82) 

FORMAT (1H1 , lOX, 23H**BACKORDFR  FILE  DUMP**) 


62 

83 

BU 


20 


K) ,IBACPT(K) 
rSNB»,I10»5X, 7HI 


40 


49 


DO  83  K"1,NBmAX 

WHIT* (6» 84)  K,IIMBAC (K),irFSNB(K) ,1PRI0R(K) ,IQTYB| 
rORMAT(lH  ,3x,7HREC  NQ-, 1 3 , 5 X , 7HI TMB AC*, 17 , 5X , 7HID 
CPRIOR-,11 ,5X,6HIQTYB»,I7,&X,7H1BA:PT»,I71 
RETURN 

RECORD  quantity, PRIORITT, fSN  ID, AND  TIME  DATA  FOR  THIS  BO  REQ 

IIMBAC(IPT)«JT1ME 

IDFSNB (IPT)«N 

IPRIOR (IPT)"iPRI 

IQTYB(iPT)-IqTY 

are  any  other  backorders  OUTSTANDING  ON  ITEM  N 
IF(NB0pT(N) iST.O)  GO  TO  40 

record  pointer  data 

NB0PT(N)“IPT 

IBACPT(IPT)«0 

return 

IS  The  new  bo  a priority  i requisition 

IF  (IRRI,  EO,  ) ) GO  TO  f>0 

note--  new  low  priority  backorders  are  inserted 
BaCkORdeR  chain,  ThF  ReNaiNiNg  steps  in  t 
OF  THE  subroutine  ACCOMPLISH  THIS  OBJECTI 
SET  JPT  equal  to  the  FILE  LOCATION  NO  OF 

requisition  in  the  chain 

JPT-NBOPTIN) 

IS  JpT  the  last  link  IN  THE  CHAIN 
ir(IBAcPT(JPT).EQ,0)  GO  TO  50 


LAST  ON  THE 
HiS  PORTION 
VE 

THE  FIRST  BACKORDERFO 


1 0 U - 1 6 - 7 7 


12,104 


kpt»|B4Cpt(  jh) 

JPT«KPt 

gO  to  yg 

c pecobd  new  poiktebs 

50  IBilCPT( jpT)«tPT 
lBkCPl(lPX)-0 

return 

C SET  JPT  EQWM  to  location  NO  OF  FIRST  BO  ON  CHAIN 

60  JpT=NBoPT|N) 

C IS  BrCKORDER  JPT  A HISH  PRI  BO 

61  IF (lPRlOR( jPl) .NE,  1 ) GO  TO  80 

C IS  JpT  THE  LAST  BACfCORDER  ON  THE  CHAIN 

ir(IBACPT|jPT).EO.  ) GO  TO  62 
KPT*JPt 

JPT«IBaCPT(KPT) 

GO  TO  61 

C INSERT  NEW  80  AS  LAST  LINK  ON  CRAIN 

52  IBACPT! JpT)«lPT 
IBACPI(1PT)*0 
RjTURN 

c IS  JpT  The  onlt  bo  on  chain 

80  ir ( JPT,NE,NB0PT(N  ) ) GO  TO  8^ 

c insert  new  bo  as  first  link  ON  CHAIN 

NbOPT(N)sIPT 

IBACPT(IPT)»JPT 

return 

c insert  New  bo  as  link  between  kpt  and  jft 

81  IBACPT(KPT)"IPT 
IBACPT(IPI)«JPT 

return 

END 


Subroutine : 


FILLBO 


Function : 

This  routine  is  called  to  initiate  shipping  actions  to 
fill  outstanding  backorders. 


Description ; 

Subroutine  FILLBO  (N)  is  called  to  initiate  shipping 
actions  to  fill  outstanding  backorders  for  item 
The  routine  assumes  that  backordered  requisitions  are 
filled  using  a first  in  first  out,  by  priority,  issue 
rule.  If  on  hand  assets  are  insufficient  to  completely 
fill  a given  requisition,  partial  shipments  are 
initiated.  Reduced  shipments  to  partially  fulfill 
several  outstanding  backorders  are  not  permitted  in 
this  routine. 

When  FILLBO  is  called,  it  tests  if  the  highest 
priority  outstanding  requisition  may  be  filled 
completely  from  on  hand  stock.  If  so,  and  if  this 
shipment  will  not  take  on  hand  stock  below  the 
support  level,  the  requisition  is  removed  from  the 
backorder  list,  and  a shipment  for  the  requisition 
quantity  is  initiated.  If  the  backorder  is  low 
priority  (that  is,  code  2),  shipments  will  be  made 
until  on  hand  stocks  just  equal  the  support  level 
ISUL  (N)  for  item  N.  For  high  priority  requisitions, 
shipments  are  made  until  on  hand  stock  is  reduced  to 
zero  or  until  all  high  priority  requisitions  are 
filled,  whichever  occurs  first. 
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subroutine  riLLBO(N) 

common/idbug/idbug 

COMMON /KB OPT/NBOPI (50  } 

COMMON/lNVACT/lNVACT(i'0  J 
COMMON /IoIyB/ICIYB (200 ) 

COMMON/JSUL/ISUL  (5‘J  ) 

COMMON/lPRiOB/IPlIOR{2O0) 

COMMON/I SHI  PI /I  SHI PI (30,3  ) 

COMMON/KbOTU/NbOTU( 50) 

C OMMON /I SHI PT/I SHIFT (30,3  ) 

COMMON /IB AC Pr/IBACPT (200  ) 

common/klocbk/nlocbk 

COHMON/ILOcBK/ILOCBK ( 200  ) 

25  IF (NBOpT (N ) ilE.O  ) RETURN 
IFdDBuG.NE,  1 ) GO  TO  27 
I«KB0pr(N ) 

WRIIEJ6,990JN,INVACT{N)  ,IOTYB(I ) ,IPRIOR,(I)  .1 
990  rORMAT(*  * * R • F I LLB 0--ITEM= ' , 15 , ’ OH*', 15,'  IQTYB*‘,I5, 

& • IPRI0R=' ,15, ' IPT*',I5) 

27  CONTINUE 

SET  IPT  equal  to  THg  POINTER  NUMBER  OF  THE  OLDEST, HIGHEST 
PRIORITY  REQUISITION  FOR  ITEM  N ON  BACKORDER  STATUS, 
IPT=NB0PT(N) 

IF (INvAcr(N) ,LE,0 )REIUFN 
****  NOTE  **** 

(A)  This  routine  assumes  bo  requisitions  are  filled  using 
A riro,BY  priority, ISSUE  RULE 

(B)  IE  on-hand  assets  ARE  INSUFFICIENT  TO  COMPLETELY  FILL  A 
GIVEN  REQUISITION, PARTIAL  SHIPMENTS  ARE  INITIATED. 

(c)  Reduced  shipments  to  partially  fulfill  several 

outstanding  backorders  are  NOT  PERMITTED  IN  THIS  ROUTINE 

SET  IXEST  EQUAL  TO  THE  REMAINING  ON*HAND  INVENTORY, 

IE  THE  REQUISITION  WAS  TO  BE  COMPLETELY  EILLED 
ITESTflNVACx(N)-IQTYB(IPT) 

C IS  ITeST  above  the  SUPPORT  LEVEL 

ir(lTEST,GT,lSUL(N)  ) GO  TO  80 
C IS  This  a PRIORITY  1 REQUISITION 

IF (IPRIOR (IPT ) .NE,  1 ) 00  TO  60 

C CAN  the  rEq  be  COMFlEfELY  SATISFIED  FROM  ON  HAND  STOCK 

ir(lNVfcCT(N),GE,lQTYB(lPT) ) SO  TO  80 
C SHIP  ALL  REMAINING  ON*HAND  STOCK  IN  PARTIAL  FULFILLMENT 

c Of  This  requisition 

IQTYS*INVACI( N ) 

C UPDATE  priority  ’ BACKORDER  STATISTICS 

jQTYS-.iOTyS 

CALL  CUM(ISH£PI,TQTYS,N» 
r,0  TO  6 5 

• fPF  ,q«rTfi  npr)Vf  flip  SMprMPT  !,  fVPL 

c'l  1 p I i N y It  i- > I ki  I , I.  c . I a I)  I I II  I I 1 1,  !•' 

c SHIP  Down  ?o  Thl  support  itvri 

IwTYS*INVACT(N )-ISUL(N) 


FiLcao, 
p<  ^ 


n n 
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FillQO,  a 2. 

c update  stock  status  records  to  reflect  the  partial  Shipment 

65  INVACT(N)«INvACT(N)-IQTTS 
NBOTU(ll)«NBOTU(KJ-I0Trs 
IQTYB(lPT)=lQTyBlIPT)*IQTrs 
C UPBAtE  gross  PERFORMAKCE  statistics 

JQTyS*,lQTYS 

CALL  CU«(lSHrPT,IQTrS,N) 

c AT  This  point, mo  further  shipments  should  be  possible,  since 

c HIGH  PrIoRITV  REQUISITIONS  ARE  PROCESSED  FIRST 

70  RETURN 


C SHIP  TO  FILL  the  ENTIRE  RFQUISIIION 

80  IQTIS-IQTIB(IPT) 

c update  stock  status  records 

IN'VACT(N)«iNVACT<N  )-IQTTS 
NB0TU(N )=NBOTU(N )"IQTTS 
jgTy6=»iQXis 

CALL  C0M(ISHIPT,IQTYS,N) 
c IS  This  a priority  i req. 

IF (IPRiOR ( IPI) . NE,  1 ) go  TO  100 

c update  priority  1 statistics 

CALL  CUM(ISHrPl,lQTYS, N) 

C REMOVE  requisition  FROM  THE  BACKORDER  FILE 

t'O  NEOPT(k)»IbACPT{IPT) 

NLOCBK^NLOCBk^I 

ILOCBK(NLOcBK)=IPT 

return  To  BEGINNING  Of  SOUTINE  10  SEE  IF  ANY  MORE  BO 
NEED  TO  BE  PROCESSED. 

SO  TO  25 
END 


Subroutine : 


FOK57b 


Function : 

This  routine  updates  forecasted  demand  rates  and 
standard  deviation  estimates  based  on  information 
recorded  in  the  History  File. 


Description ; 

This  routine  uses  an  eight  quarter  moving  average 
to  update  forecasts  of  the  net  annual  demand  rate 
hDR(W) , the  MAD  of  quarterly  unit  demand  QMAD,  and 
average  requisition  size  RLQSIZ(N)  associated  with 
item  N.  The  estimate  of  the  standard  deviation  of 
lead  time  demand  RSIGLT(N)  is  then  updated  using 
the  formula 

RSIGLT(N) =0.5945*QMAD* ( 0 . 82 37 5+0 . 42 62 5*RLT) 

where  ilLT  denotes  the  total  of  the  administrative 
and  production  leadtimes  for  item  N. 

To  avoid  numerical  problems  in  other  routines,  FOR576 
compares  the  computed  values  to  the  following  bounds. 


and,  if 

the  bound 

is 

violated,  FOR576 

variable 

equal  to 

the 

associated  bound 

ADR(N) 

,> 

0.0 

QMAD 

.01 

RSIGLT{N) 

.01 

REQSIZ (N) 

•5 

1.0 

FOR576 


/ -'f  ^ 


20 

30 

A0 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

490 

4C0 


S 

$ 

s 

$ 

$ 
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IDENT  WP0287,ADDSC-CALLAHAN 
FORTY  DECK 

PRMFL  C*,W,S,REQS/F0R576.0 
REMOTE  P*,AC 
REMOTE  $$,AC 
SUBROUTINE  FOR576(N) 

COMMON/IFBUG/IFBUG 

COMMON/ITIME/ITIME 

COMMON/ITQTR/ITQTR 

COMMON/NDEMAC/NDEMACCl) 

COMMON/NRETAC/NRETACCl ) 

COMMON/NREQAC/NREQACd  ) 

C0MM0N/NDEMND/NDEMND(1,24) 

COMMON/REQSIZ/REQSIZd) 

COMMON/NR ETUR/NRETUR(1 ,24) 

COMMON/NR EQ/NREQd  ,24) 

COMMON/ADR/ADRCl  ) 

COMMON/RSIGLT/RSI GLTC 1 ) 

COMMON/NDENT/NDENTCl ) 

COMMON/LTADM/LTADMCl ) 

COMMON/LTPROD/LTPRODCl ) 

COMMON/UCOST/UCOST(  1 ) 

COMMON/IDBUG/IDBUG 

COMMON/ICDFOR/ICDFOR 

COMMON/ICDSIG/ICDSIG 

COMMON/SRFOR/SRFOR,SRPLT,GDFOR 

IDUM=0 
IFUM:0 
IRUM=0 
KK=  NDENT(N) 

IF(KK.GT.8)KK=8 

KL=KK-1 

DO  1 Irl,KL 

IDUMrIDUM  + NDEMND(N,I) 

IFUM:IFUM  + NREQ(N,I) 

1 IRUM=IRUM  + NRETUR(N,I) 

ITrMODCITIME,  ITQTR) 

R = FLOAT (IT) /FLOAT (ITQTR) 

RH=1 .-R 

DUM=R*FL0AT(NDEMAC(N))'fFL0AT(IDUM)+Rrt4FL0AT(IM)EHIIDdl,KK) ) 
FUM=R*FLOAT(NREQAC(N))-»-FLOAT(IFUM)+RM4FLOATCIIREQ(li,KK)) 
RUM=R*FI  nAT(MRETAC(N))  + FLOAT(IRUM)+RM*FLOATdlRETUR(ll,KK)) 


FOR576  (CONT) 


' I 
A 


470 

480 

490 

?00 

510 

520 

530 

540 

550 

560 

570 

580 

390 

600 

610 

620 

630 

640 

630 

660 

670 

680 

690 

700 

•710 

720 

730 

740 

750 


C 

C 

♦ 

♦ COMPUTE  LEVELS  BASED  ON  NET  DEMANDS,  WHERE  NET  10 

♦ DEMAND  MINUS  SERVICEABLE  RETURNS  FOR  THE  PAl 

♦ months, 

♦ RETURNS  ARE  ADDITIONS  TO  ON-HAND  ASSETS. 

♦ 

FOR=DUM-RUM 

IFCFOR.LE.0.)GO  TO  1000 
FORCST:FOR/FLOAT(KK) 

900  ADR(N):F0RCST*4, 

C 

C COMPUTE  MAD  OF  QUARTERLY  DEMAND 

C 

QMAD=0. 

FORCST=DUH/FLOAT(KK) 

DO  20  1 = 1, KK 

ABSDEV=ABS(FLOAT(NDEMND(N,I))-FORCST) 

20  QMAD=QMAD+ABSDEV 

QMAD:  QMAD/FLOATCKK) 

IFCQMAD.LT.  0.01)  QMAD=0.01 
C 

C COMPUTE  STANDARD  DEVIATION  OF  LEADTIME  DEMAND 

C 

RLT= FLOAT <LTADM(N)+LTPROD(N)) 

RSI  GLT ( N):0. 5945* QMAD*  (0.82375+0. 42 62 5*RLT) 
IF(RSIGLT(N).LT.  0.01)  RSIGLTCN):  0.01 
C 


FOR576 


(CONT) 


^ -i 


J 


7€(8 

77« 

775 

780 

790 

800 

810 

820 

830 

340 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 


C COMPUTE  AVERAGE  REQUISITION  SIZE 

C 

IFCIFUM.LT.  DIFUMrl 
R=FLOAT(IDUM)/FLOAT(IFU«) 

IF(R.LT.1.)R= 1. 

REQSIZ(N)  = R 

2000  IFCIFBUG  . NE.  1)  RETURN 
WRITECLW, 100) 

WRITE(LW,200)  N, NDENT(N) ,NLOOP,ICDFOR, ICDSIG,LTADM(N) ,LTPI 
WRITE(LW,500) 

WR1TE(LW,200)NDEMAC(N), (NDEMNDCN.J) ,J=1 ,KK) 
WRITEaW,200)MRETAC(N),  (NRETURCN.J)  ,J=1  ,KK) 
WRITE(LW,200)NREQAC(N), (NREQCN.J) ,J:1 ,KK) 

WRITE(LW,400) 

WRITE(LW,500)  FORCST.ADRCN) ,REQSIZ(N) ,UCOST(N) , QMAD .RSIGLI 
100  FORMATCIH  , 4X , '♦♦♦♦F0R576— N,  NDENT, NLOOP, ICDFOR , ICDSI G ' , 

A ' LTADM.LTPROD') 

200  FORMATCIH  , 4X, 1217/1217) 

300  FORMATCIH  ,9X,  'DEMAND,  RETURNS,  AND  FREQ', 

A ' IN  CURRENT  HISTORY  FILE') 

400  FORMATCIH  , ' FORCST  ADR  AVE-REQ  UCOST', 

A ' QMAD  RSI6LT') 

500  FORMATCIH  ,6F10.4) 

RETURN 

1000  RSIGLTCN)=.5 
ADR<N)=0.0 

IFCIFBUG  .NE.  D RETURN 

GO  TO  2000 

END 

$ ENDJOB 


Subroutine:  FORUPD 


Function; 

This  routine  slides  the  demand  history  files  for  all 
items  at  the  end  of  each  quarter.  It  also  resets  the 
demand  accumulator  variables. 


Description ; 

Subroutine  FORUPD  first  increments  the  counter  NDFNT(N) 
for  each  item  N.  This  variable  counts  the  number  of 
periods  that  item  N has  been  in  the  inventory  system. 

The  routine  then  slides  the  history  values  to  the 
next  oldest  time  slot.  Variables  affected  are  the 
T4DEMMD,  number  of  units  demanded  per  quarter,  NRETUR, 
the  number  of  serviceable  returns,  and  NREQ,  the 
number  of  requisitions  submitted.  The  oldest  quarter 
of  data  is  dropped.  The  accumulator  variables 
NDEMAC{N),  NREQAC(N),  and  NRETAC(N)  are  then  reset 
to  zero.  These  variables  are  used  to  record  the 
cumulative  demand  activity  that  occurs  within  the 
current  quarter. 

Finally,  FORUPD  places  a new  type  9 event  on  the 
Future  Events  List.  This  causes  FORUPD  to  be  called 
again  IDFOR  time  units  in  the  future. 


FORUPD 


I ^ 


21 

S 

IDENT  UP  1287.  ADOSC -CALLAHAN 

31 

$ 

FORTY  DECK 

4« 

$ 

PRMFL  C*>,S  .REflS /FORUPD. 0 

M 

$ 

REMOTE  P*,AC 

61 

$ 

REMOTE  $$,AC 

71 

SUBROUTINE  FORUPD 

81 

c 

THIS  ROUTINE  SLIDES  THE  DEMAND  HISTORY 

FILES 

FOR 

ALL  ITI 

91 

c 

THE  END  OF  EACH  FORECAST  INTERVAL. 

RESETS  IDAY,  AND  ZER6 

111 

c 

THE  DEMAND  ACCUMULATORS 

111 

COMMON/ITFOR/ITFOR.IDFOR 

121 

COMMON /NITEM/NITEM 

1^1 

COMMON/NDEMND/NOEMND( 1 ,24) 

141 

COMMON /NRETUR/NRETURd  .24) 

1^1 

COMMON/NREQ/NREQ( 1.24) 

161 

COMMON/NDEMAC/NDEMAC ( 1 ) 

171 

COMMON/NRETAC/NRETAC(  1 ) 

181 

COMMON/NREQAC/NREQAC( 1 ) 

191 

COMMON/NDENT/NDENT( 1 ) 

211 

N=1 

211 

c 

HAS  ITEM  N ENTERED  THE  SYSTEM  YET 

221 

3 

CONTINUE 

231 

N0ENT(N)  = NDENT(N)'»>1 

241 

IF(NDENT(N).GE.I)  GO  TO  21 

231 

GO  TO  23 

261 

c 

***  NOTE  *** 

2 71 

c 

BY  CONVENTION  NOENT(N)  IS  NEGATIVE 

UNTIL  THE 

ITEM 

ENTERS 

281 

c 

THE  INVENTORY  MANAGEMENT  SYSTEM 

291 

c 

311 

c 

SLIDE  THE  DEMAND  HISTORY  FILES  FOR 

ALL 

ITEMS 

311 

21 

CONTINUE 

321 

KKS8 

331 

KP=KK+I 

341 

KL=KK-  1 

331 

DO  21  I = 1.KL 

361 

IS1=  KP-1 

371 

IS2:  KK-I 

381 

NDEMNOIN.IS  l)=NDEMND(N.IS2) 

391 

NRETUR(N.IS  1 ):NRETUR (N .IS2) 

411 

NREGCN.IS  l)sNREQ(N.IS2) 

411 

21 

CONTINUE 

421 

NREQCN.  1 ):NREQAC(N) 

431 

NREQAC(H):I 

441 

NRETUR(N.I):NRETAC(N) 

431 

NRETAC(N)  = I 

461 

NOEMND(N. l)=NOEMAC(N) 

471 

NOEMAC(N)=l 

481 

C 

HAVE  ALL  ITEMS  BEEN  PROCESSED 

FORUPD  (CONT) 


n 

>N 


i 


491 

23 

IF(N.GE.NITEH)  60  TO  26 

^•1 

N:N4-1 

GO  TO  $ 

921 

26 

CONTINUE 

$31 

C 

CREATE  EVENT  TO  TRIGGER  NEXT  UPDATE 

$41 

ITFORsITFOR+IDFOR 

$$l 

CALL  ENTER(ITF0R,9,I,I,I) 

$61 

RETURN 

$71 

END 

$81 

$ 

ENDJOB 

Subroutine:  GP 


Function: 

This  routine  provides  a X“Y  plot  of  the  vectors 
provided  as  calling  parameters.  It  is  used  by 
subroutine  PLOTR  to  provide  four  plots  of  inventory 
characteristics  as  a function  of  time. 


Description: 

This  routine  automatically  determines  appropriate 
values  for  maximum  and  minimum  of  each  plot  axis. 
Definitions  of  each  of  the  calling  parameters  are 
provided  on  page  1 of  the  program  listing,  and  will 
not  be  discussed  further  here. 


C-P 

fi  i ^ ^ 


C* 

c* 

c* 

c 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

c* 

c* 

c 

c 


c 

c** 

c*» 

c** 


e 

c** 

c** 


c 


• UBBoUrim  GP  (X,  Y,I,,S,n,N,W,l,N.  AfPLOT) 
COHTPQl 


CALL  GP  (X«  r,  I,  5,  Hi  w,  m,  K,  PLOT) 


WHERE 

X ■ ARRAY  OE  INDEPEUPEST  VALUES,  DIEENSTONEP  X { r. ) , 

X ■ array  or  SETS  Of  DEPENDE*fT  VALUES,  Oi  E £•:  S I ON  tn  Y(E,K 
t • HUflPER  or  LISES  TO  PE  SKIPPEC  BEFOPE  DISPLAY, 

S • NUKPER-Or  SPACES  rpOK  THE  LEFT  SIDE  OF  PAGE  To 
BE  skipped  before  DISPLAY, 

B • RUBBER  or  POINTS  IN  EACH  SET, 

N ■ NUKRER  or  SETS  or  POINTS, 

H ■ width  or  display  in  print  SPACES, 

_IN  ■ LENGTH  or  DISPLAY  IS  PRIST  LINES, 

A ■ Array  cf  single  characters.  PifjFssiosED  A(n),xo 
represent  the  trend  for  each  SET  (eX,-  data  A/1HA, 
^HB.,.,ETC,) 

PLOT  ■ ARRAY  or  SINGLE  CHARACTERS  GENERATED  BY  GP  TO 
DISPLAY  TRENDS,  DIKENSIONEP  PLOT  {LN,W), 


INTEGER  8.  W,  W) 


DIBENSION  xCb),  Y(m,nJ,  a(n>,  PLOT^LN.w) 


DATA  BLaNK/1H  /,  EDOE/lH*/ 
DATA  0RD/1K  /, ABSIS/1H-/ 


CHECK  lAXIHUB  WIDTH  AND  LENGTH  HEU^ESTED  AND 
EXIT  IF  NOT  correct 


IP  (S-HN  '.GT,  131)  GO  TO  900 
IP  (L*tN  ,3l,  58)  GO  PO  800 


PINP  BINIHUB  AND  hAXIBUH  OF  X AND  Y 

XI1AX-X(  li 
XMIN»X(  1 ) 


DO  10 

IP  (Xd)  ,GT,  XBAX)  XMAX«X(I) 
ir  (Xd)  ,LT,  XfllN)  XfllN-Xd) 


c 


YKAX-Y(  1.  1 ) 

YBIN-Y(I.I) 

DO  20  IbI.B 
DO  20  J-1,N 

IP  (Yd.J)  ,3T,  YBAX)  YBAX-Y(I,J) 


GP 

20  xr  (r(r,j)  ,it,  rum)  yniN-y(i.j) 
c 
c 

c************* •*•••**••*•«•***•**••*•*••••**•*•***••**••*>*• 

c 

C SET  0RI5IN  XT  (0,,0,  ) 

C 

YHIS-0, 

XMIN-O, 

c 

C BEGIN  ON  new  PXGE 

c 

WJiITE(S,610) 

poRnxK  ih''  ) 

C*  

C 

C**  COMPUTE  SCXLE  EXCTOR  — P TOR  X,  Q FOR  X 

C** 

p«rLoxr(w-o/(XMXx-xHiN) 

O-PEOXIUN-''  )/(TMXX-YnTN> 

c 

C**  bunk  PlOT  ARRXX 

c** 

DO  30  r-1,N 
DO  30  ’»1,LN 
So  PlOX(  J«  I )*BI.XNK 

c 

C»*  CONSTRUCT  BORDER  OF  DISplXY 

C** 

DO  40  3-1, IN 
X«1 

PtOK  Jt  I D3E 
X-W 

UO  PIOT(J,I)»E03E 
C 

W1«W-  1 

DO  50  Io2,wl 
J*1 

PlOKO.D-EOSE 

JOIN 

SO  PL0I(JtI)*FD3E 
C 

C**  COMPUTE  SUBSCRIPTS  XND  INSERT  TREND  CHXRXCTEH  IN 
c**  plot  XRRXX 

CM* 

DO  60  1=1, M 
DO  60  Jc 1 , N 

11«UISt('.5*P»(X(I)-XMiN)) 

J1“LN-rNT(0, 5«-0*  ( Y (I,  J ).YMIN  ) ) 

60  PLOT(J1,r1)=X{J) 

c 

C**  SKIP  L LINES  BEFORE  BEGINNING  DISPLAY  PRINTING 


GP 

p-i  4% 


c 

DO  1Q  Kalil 
70  WSITE  (6.600) 

600  FOPMAT  (1H  ) 

C 

c**  WRITE  OUT  PLOT  ARRAY,  Skipping  s spaces  before  printing 
C**  EACH  line  of  DISPLAY 

c** 

DO  80 

80  WRITE(5,6C1)  ( BL ANK , K» 1 , S ) , ( PLOT ( J , I > , I» 1 , « ) 

601  FORMAT  (ii2A1) 

WRITE  (6.602)  XMlN , X« A Y , YMi N , yM A Y 

602  FORMAT  ( 1H0, 6X,6HXMIH  =E  1 6 , 8 , 1 OX , 6 H Xr AX  =E16,6,10X, 

X 6HYMIN  *E16,8, 10X,6HYMAX  »E16,8) 

RETURN 

C** 

C«*  ERROR  IeSSAGES  BEFORE  TeRMjNaTIOH 

c*« 

800  WRITE  (6.603)  i,  ln 

603  format  (lOHAt-^l-N  IS  GREATER  THAN  58  I-  =I  3 , 5X , H =13) 
900  WRITE  (6.60U)  S,  W 

60U  FORMAT  (30HAS4-W  Is  GREATER  THAN  131  S =I3.5Xi3HW  =13) 
STOP 
END 


Subroutine ; GUIDE 

Function: 

This  routine  establishes  guidelines  for  levels 
computations  to  be  performed  by  subroutine  LEVELN. 


Description ; 

This  routine  establishes  guidelines  for  levels 
computations  based  on  a comparison  of  current 
obligations  and  budget  authorizations  for  the 
current  budget  period.  However,  no  buys  are 
permitted  after  the  obligation  ceiling  for  a 
given  budget  interval  has  been  reached. 

Methodology  to  be  used  in  establishing  buy  guide- 
lines is  determined  by  the  code  ICDGID  provided 
as  input  to  the  simulation. 

At  the  end  of  this  event,  GUIDE  places  a new  type 
7 event  on  the  Future  Events  List. 


20.^.1  / 


&UtT>c: 


1 1 


sugrouxINe  siirov  P ^ Z. 

This  ROurTKr  fst^blxshgs  si-'ToFLTNts  for  lvVtls  co^vnfrAmvs 
ACC0hDiN3  TD  Policy  stated  in  aflC'I  howevpk  vo  h(!ys  ^pe 

PESfiTlFo  aFTEK  the  38113^113^'  ZzJLl  ''  FTP  « GIVEN  RL'DGVT 
xwtfaval  is  rfachkd. 

C0:;K0K/IGPUG/I3t.iis 
c^MMOK/ionv/ion  iv 
Cn^^MO^•/TJRLtG/IC'bLI3 


COnMOK/IIOIV/TTDiV 
CO'^i•10^  /IfH  j/iTHQ 
co.-iMON/rrr'iE/'rrxiK 
CO  '!^:u^•/Ii’y  EAR  /IT  YEAR 
COF'MCK/MAXriUy /'1A/8  jy 
CONMUN/VaPER/MBPER 
COi-.HOK/GoLF/GSLF 
COMMON/GRLF/GaLF 
C0;'lM0S-/Gi'T.E/3  ILF 

COHMON/GiJlOl/rCDGTD,  NPH,  JPOLC  Y,  IDJAYR,TnJAXS,3H0RT(l0  1 

cofmon/isauth/ipaifth  ( 12) 

COflMON/3Fn^/',EOn{ 

DO  current  obligations  EXCe'ED  IHL  CGTT.IVG 
IF  lIObLTG  ;LE,  IP  ALITH  ( NBRE-l  ) 1 GO  TO  11 
IF(MaXBIII.LF,0)  30  TO  20 


nAXBUy=0 
GO  TO  /O 
CONTIK jE 


'■jAXBt'Y  = 9iJ9:('^39 
20  continue 

IF(IGFuGvNg, 1 ) Go  ro  30 

R = FLOAr(XTIME) /rLOAT( iryOAn  ) 

WRITE(A,rfr)0  0)iri1T,X'SPFR.lOpLrG,IflAUrH(NI«P''R),F,KAXPUT 

3 0 00  FORrIAT  ( 7(1  Gll.  576,I10,SH -,6HNBPFP*:,:S,5X,17HORLIGATinNS  = ,no,BX 

C»11HANrHOPr7;rD  = ,i1D,5X,S"yFAR«,F5.3,-jX,RH«AX&UY=  ,19) 

30  CONTINJF, 

iF(Icn3IU,E0. 1 ) 30  TO  50 
IF(ICD3I0.fi2, 2)  30  TO  UO 
OEOQ ( 1 ) a J , 

GE0g(2)=6, 

GE0n(3)  = 12. 

GSLr'=  1 . 

GSnLFe,; , 

GTLF  = 2i‘, 

GPLr=12. 

GO  TO  jO 
un  contikjt 
CALL  A22CA< 

50  CO.N'TTKDE 

C OF.  PUT.-’.  n-.E  FOP  NT  XT  II' I DEL  INF  REV!  'J 
ITDI'^s  ITOTV^-IoniV 

IF  NUXI  REVIEW  time  PRTrtFL'S  NFXI  bU''G::T  PFVISIoN 
PLACE  Reyti  w Event  on  fi;  msi 

IFdTPiV.GE.ITHg)  GO  TO  13 


12-06-76  20.417 


CALI  E'.T‘iP(IVDrv,7,0..'1,0) 
13  CONTINuF 
P.ETIJHK 
KND 


Subroutine:  INBUDGl 


Function : 

This  routine  performs  initialization  functions 
required  in  simulating  buy  guidelines  events. 


Description : 

The  subroutine  I^3BUDG1  sets  authorized  and 
projected  obligation  ceilings.  The  routine  also 
initializes  obligation  and  period  counters,  and 
places  the  initial  budget  review  event  on  the 
Future  Events  List. 

The  routine  sets  the  authorized  budget  ceilings 
equal  to  the  total  dollar  demand  to  be  aenerated 
in  the  corresponding  budget  interval.  That  is, 
it  sets  the  budget  authorization  equal  to  the 
dollar  value  cf  unit  demand  in  the  array  IDEMND; 
this  array  drives  the  simulated  demand  activity 
for  the  simulation. 

Finally,  routine  INBUDGl  places  a type  8 event 
on  the  Future  Events  List. 


o n n o o 


r 


1 


1 1 


l2-:'3-76 


19.875 


:ir\J6vD&i 

r 4 ^ 


S'JPPOllTlNf-  iNbDGi 

C THIS  HOtiTiNE  SETS  AUTHOHI'/Fr  AM3  PPOJtCTED  OBLIGA  TIONS  'CKlLIN'GS 

C FUUAL  to  The  total  DOLLAP  DF/’AN^  obsesveo  i.v  the  cofrespqndivg 

budget  interval,  the  routine  also  initializes  obligation  and 
PERIOD  Counters  and  places  the  sudret  RtviE*.'  event  on  the  fel. 
dimension  TOrAL(J>) 

COMEON'/BpE.R/BPPR 
COMMON/iObLis/lOBLIG 


COMMON/NITEM/NITEM 
COMMON/lNQTR/INtTR 
CONMON/NBPeR/NPPEK 
CCMi-lON/lTHO/lTHQ 
COMWON/IDEmND/IDEMND ( bO, 8 1 ) 
COMrtON/UCOsT/UCoST( bO  ) 
COMKON/IBAUTh/IBAUTH ( 12  ) 
COMhO.N/IBPROj/IBPKOJ  ( 12  ) - 

COf.PUTAl  ACTUAL  $/0TP  DEM»ND 

isw=1 

IF(ISN.E2t 1 )30  TO  200 
DO  3 ij  I ■ 1 » 2 7 
T0TALU)'«0. 

SU'i"v  . 

DO  13  n»1»NITEM 

IE  ( IDEMND  ( N»  I ) . GE.  99999«!  ) GO  TO  13 
SUri»SUfi  + FLOATUDEhND(N,ll)*’'COST(j;) 
13  CONTINUE 

TOTAHl)*SUM 
30  Continue 


SET  authorized  budget  EO'^AL  to  actual  demand 


DO  5 ' l»1, 7 
K=8*i-3 

SUBTnTeTOTAL(  K )-*-T0TAL  ( K + l )•*■  total  ( ^•*-2)+T0TAH  K + 3) 

IBAUTH(I)siBPBR*SUBTOT 
IBPHOJ  (I  )*’SUBXOT 
^0  CCNTiftUE 

■■Vi)ITFl6.8  0CU<(I,TOTAl-(I),I.i,27) 

0u  0 FnPMA : ( ///20X» DHCTP  NO . 8 X , 7 H SD EM A N D/// JO ( I 2 b , E 1 b , 2 / > ) 
VrvTTEl6,0'.'lO)(K,IfcPROJ(K)»I'<AUTH(fO»K*1*7) 

8010  E0PMAT(///2.)X»6H  YR  N 0 . 6 X # 7 k$  AC  TU  A L . 1 0 X » 5 HS  A U’fH /// 1 C ( 1 2fc  . 2 1 1 5/ ) ) 
GO  TO  500 
2 Continue 

00  1 = 1.^ 

T3AUTH (I )»99999999» 

2b0  IbPROJ ( I ) -99999999 . 

5 0 CONTINUE 

C enter  budget  revision  EVE' T ns  fE  LIST 

CALL  Enter (ITH0» H»  1» 0, n J 

C initialize  budget  INTEPVAI  C^UNrEH 


I 


r/Ui3U  Dc^  I 

^ .2  c'^Z  i 


] 

I 

i 


j 

I 

i 

I 


I 


I 


Subroutine:  IMPEL 


Function : 


This  routine  initializes  the  Future  Events  List 
to  an  empty  status. 


Description; 


Subroutine  IMPEL  initializes  the  Future  Events  List. 
Subsequently,  Subroutines  ENTER  and  REMOVE  update 
this  list.  See  \ >ime  I,  Chapter  IV,  for  a detailed 
discussion  of  these  activities. 


Subroutine;  INITAL 


Function : 


This  routine  sets  the  values  of  critical  timing 
variables  and  initializes  the  Future  events  List. 


Description ; 

First,  this  routine  calls  Subroutine  IllFCL  to 
initialize  the  Future  Svents  List.  Next,  major 
parameters  for  the  Backorder  File  are  set,  and  the 
Backorder  File  is  initialized. 

Major  timing  variables  are  then  set  assuming  that 
there  are  100  time  units  in  each  simulated  lay. 

At  present.  Subroutine  INITAL  assumes  that  there 
are  7 days  per  week,  4 weeks  per  month,  3 months 
per  quarter,  and  4 quarters  in  each  year. 

Subroutine  INITAL  then  sets  the  simulation  clock 
and  statistics  collection  variables;  specifically, 
it  sets: 

ITIME  = 0. 

ITINV  = 1. 

INITAL  then  sets  other  significant  timing  variables 
discussed  in  Chapter  IV,  Volume  I. 

Finally,  INITAL  places  transactions  for  event 
types  3,  5,  6,  lO,  11,  12,  and  13  on  the  Future 
Events  List,  provided  these  events  are  to  be 
simulated  in  the  current  simulation  run. 


INITAL 


P 


21 

$ 

IDENT  WP0287,ADDSC-CALLAHAN 

30 

$ 

FORTY  DECK 

40 

S 

PRMFL  C*,W,S.REQS/INITAL.O 

50 

$ 

REMOTE  P*,AC 

60 

$ 

REMOTE  S$,AC 

70 

SUBROUTINE  INITAL 

80 

c 

THIS  ROUTINE 

90 

c 

INITIALIZES  THE  FUTURE  EVENTS  LIST^ 

100 

c 

110 

COMnON/IDBUG/IDBUG,IEBUG,IFBUG,IGBUG 

120 

COMMON/ITRACE/ITRACE, ISTRAC 

130 

COMMON/IDDIV/IDDIV 

140 

COMMON/IDLEVL/IDLEVL 

150 

COMMON/IDSTAT/IDSTAT 

160 

COMMON/IDTHQ/IDTHQ 

170 

COMMON/IKDEM/IKDEM 

180 

COMMON/INQTR/INQTR 

190 

COMMON/IQTRND/IQTRND 

200 

COMMON/ISTOCK/ISTOCK,IDSTOC 

210 

COMMON/ISTOP/ISTOP 

220 

COMMON/ISTAT/ISTAT 

230 

COMMON/ITCA NB/ITCANB, IDCANB 

240 

COMMON/ITDAY/ITDAY 

290 

COMMON/ITDIV/ITDIV  i 

260 

COMMON/ITFOR/ITFOR,  IDFOR 

270 

COMMON/ITHQ/ITHQ 

280 

COMMON/ITIME/ITIME 

290 

COMMON/ITINV/ITINV 

300 

COMMON/ITLEVL/ITLEVL 

310 

COMMON/ITMNTH/ITMNTH 

320 

COMMON/ITQTR/ITQTR 

330 

COMMON/ITWEEK/ ITWEEK 

340 

COMMON/I  TYEAR/ITYEAR 

350 

COMMON/MBODAY/MBODAY 

360 

COMMON/NBMAX/NBMAX 

370 

COMMON/NENTRY/ NENTRY 

380 

COMMON/NFEMAX/NFEMAX 

390 

COMMON/NFIRST/NFIRST 

400 

COMMON/NITEM/NITEM 

410 

COMMON/NLOC/NLOC 

420 

COMMON/NLOCBK/NLOCBK 

430 

COMMON/NTIME/NTIME 

440 

COMMON/RAND/IX.IY 

450 

COMMON/ ILOCBK/ILOCBK (200) 

4€0 

c 

IHBUQ 


INITAL  (CONT) 


r 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

0330 

840 

850 

860 

0870 

880 

890 

900 

910 

920 

930 

940 


C INITIALIZE  THE  FUTURE  EVENTS  LIST 

C 

NFEriAX=500 
CALL  INFEL 

C » 

C SET  PARAMETERS  FOR  BACKORDER  FILE 

C 

NBMAX=100 
NLOCBKr NBMAX 
DO  10  1:1, NBMAX 
10  ILOCBK(l):NBMAX+l-I 

C SET  TIMING  VARIABLES  BASED  ON  100  TIME  UNITS  PER  DAY 

C 7 DAYS/WEEK,  M VZEXS/m'ONTH  . A QUARTERS/YEAR 

ITDAY= 100 
ITWEEK:7*ITDAY 
ITMNTH=4*ITWEEK 
ITQTR=3+ITMNTH 
ITYEAR=4*ITQTR 

C SET  TIMING  VARIABLES  FOR  MANAGEMENT  AND  DATA  COLLECTION! 

C CURRENT  SIMULATION  CLOCK  TIME 

IT  I ME:  0 

C CURRENT  STATISTICS  COLLECTION  INTERVAL 

ITINV:1 

C END  OF  CURRENT  QUARTER 

IQTRNDrITQTR 

C TIME  OF  FIRST  HQ  USAF  BUDGET  AUTHORIZATION 

ITHQ=10 

C TIME  BETWEEN  HQ  USAF  BUDGET  REVISIONS 

IDTHQ:4*ITQTR 

C TIME  OF  FIRST  DIVISION  LEVEL  REVIEW 

ITDIV:20 

C TIME  BETWEEN  DIVISION  LEVEL  REVIEWS 

lODIVrITMNTH 

C TIME  OF  FIRST  STOCK  LEVEL  COMPUTATION 

ITLEVL=30 

C TIME  BETWEEN  STOCK  LEVEL  COMPUTATIONS 

IDLEVL:2*ITWEEK 

C TIME  OF  FIRST  STOCK  STATUS  REVIEW 

ISTOCK:40 

C TIME  BETWEEN  STOCK  STATUS  REVIEQS 

IDST0C:2*ITWEEK 

C TIME  TO  ACTIVATE  STATISTICS  COLLECTION  ROUTINE 

ISTAT:ITWEEK-5 

C TIME  BETWEEN  STATISTICAL  UPDATES 

IDSTAT:  ITWEEK 

C STOP  AFTER  SIMULATION  INQTR  QUARTERS 

ISTOP=INQTR*lTQTR 

C PLACE  INITIAL  MANAGEMENT  AND  DATA  COLLECTION  EVENTS  ON 


INITAL  (CQNT')  ' 


950 
9«0 
3f0 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
I 130 
1140 
1150 
1160 
1170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


C THE  FUTURE  EVENTS  LIST. 

C STAT--REVIEW  STOCK  STATUS 

CALL  ENTER(ISTOCK,5,0,0,0) 

C LEVEL--COMPUTE  INV  CONTROL  LEVELS 

CALL  ENTERCITLEVL,6,0,0,0) 

C SSTAT--ACCUMULATE  STATUS  STATISTICS 

CALL  ENTERCISTAT, 11, 1,0,0) 

C IT0UT— END  OF  SIMULATION  PERIOD 

CALL  ENTERdSTOP,  10,0,0,0) 

C 4 

C CREATE  FORECAST  EVENT 

C 

100  CONTINUE 

ITFOR=ITQTR 

IDFOR=ITQTR 

C FORUPD— UPDATE  DEMAND  HISTORY  FILES 

CALL  ENTER<ITFOR,9,0,0,0) 

C • DEMPAR--GENERATE  DEMAND 

CALL  ENTERC100, 12,0,0,0) 

C 

C CANCLB--CANCELLATION  REVIEW  EVENT  GOES  HERE-- 

C CANCELLATIONS  ARE  NOT  SIMULATED  IN  THIS  STUDY 

C 

MBODAY: 100 
IDCANB=ITMNTH 
C 

C INITIALIZE  FOR  PLOT  OF  STOCK  HISTORY 

C 

IF(ISTRAC.LE.0)  GO  TO  200 
CALL  ENTERdTRACE, 13,0,0,0) 

200  CONTINUE 
RETURN 
END 

$ ENOJOB 


Subroutine:  INITEM 


Function: 

This  routine  initializes  the  Item  Data  File  by 
reading  input  from  File  07,  and  then  performs 
item-related  initializing  calculations. 


Description : 

Input  may  be  provided  to  this  routine  in  either 
binary  or  BCD  format.  The  specific  type  of 
input  is  determined  by  the  variable  INTYPE.  A 
detailed  description  of  data  contained  on  file 
07  is  presented  in  Vol  I,  Chap  VII. 

After  reading  information  on  a given  item,  INITEM 
then  performs  several  calculations.  First,  it 
zeros  the  demand  history  accumulators  NRETAC, 

NDEMAC,  and  NREQAC  used  to  record  demand 
activity  for  each  given  item.  Inventory  status 
variables  and  associated  pointers  are  then 
updated.  In  the  present  coding,  all  due-in 
inventories  are  assumed  to  be  on  hand;  consequently, 
INITEM  increases  the  variable  INVACT(N)  by  the 
amount  of  due-in  inventory,  and  sets  the  variable 
IMVDUF,  (N)  to  zero. 

Next,  the  demand  history  arrays  are  initialized 
using  the  first  NDHIS  periods  of  data  recorded  in 
the  Demand  Driver  File.  See  Vol  I,  Chap  IV,  for 
definition  of  these  data  elements. 

Finally,  subroutine  INITEM  initializes  the  variables 
IBOPOH(J)  and  IBOPOR(J).  These  variables  record 
the  initial  and  on  order  inventories  at  the  beginning 
of  the  simulation  run. 

If  an  end  of  file  is  encountered  in  reading  File 
07,  subroutines  OUT,  orJTCST,  and  PLOTR  are  called 
to  write  out  performance  statistics  summaries. 


IN ITEM 


20 

30 

40 

50 

60 

70 

80 

85 

90 

100 

110 

120 

130 

.140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

490 

460 

470 

480 

490 

500 

910 

320 

930 


WP0287,ADOSC-CALLAHAN 

DECK 

C*,W,S,REQS/INITEM.O 


$ IDENT 

$ FORTY 

S PRMFL 

$ REMOTE 

$ REMOTE 

SUBROUTINE  INITEM 

NI  TEt4t'’t‘*>»'***=»‘*»*******»* 


P»,AC 

$$.AC 


CHARACTER  ALC  FSN,UM,NOUN,MGTCD 
COMMON/FSN/ALC, FSM(4) , UM, N0UN(2) 
COMMON/GSLF/GSLF 
COMMON/IDBUG/IDBUG 
COMMON/ITDAY  /ITDAY 
COMMON/ITMNTH/ITMNTH 
COMMON/NITEM/NITEM 
COMMON/ND EM/NDEM 
COMMON/NDHIS/NDHIS 
COMMON/INLU/INLU 
COMMON/I NTYP  E/I NTYPE 
C0MM0N/IEBUG/IE8UG 
COMMON/IBOP/iaOPOH(3) ,IB0P0R(3) 
COMMON/IDEMND/IDEMNDd  ,24) 
COMMON/RMREQS/RMREQSd) 
COMMON/INVACT/INUACTC 1) 
COMMON/NORDPT/NORDPTCl ) 
COMMON/NDEMAC/NDEMACd) 

C OMMO  N/ NR  ETAC /NRETAC ( I ) 

COMMON/NR  EQAC/NREQACd) 

COMMON/ND EMND/NDEMNDCl ,24) 
COMMON/NRETUR/NRETURd  ,24) 
COMMON/NREQ/NREQCI  ,24) 
COMMON/NDENT/NDENT( 1 ) 
COMMON/INVDUE/INVDUEd) 
COMMON/NBOPT/NBOPTCl  ) 
COMMQN/NBOTU/NBOTUd  ) 
COMMON/REQSIZ/REQSIZCl) 
COMMON/REQMAD/REQMADd  ) 
COMMON/LTPROD/LTPROD( 1 ) 
COMMON/LTADM/LTADMd  ) 
COMMON/UCOST/UCOSTd  ) 
COMMON/ADR/ADR (1 ) 
COMMON/ISUL/ISULd) 

COMMON/IREQ  /IREQd,24) 
COMMON/IRETUR/IRETURd  ,24) 
COMMON/IRL/lRLd  ) 
COMMON/ITL/ITLd) 
COMMON/IROL/IROLd  ) 

COMMON/IRQTY/ IRQTYC 1 ) 

COMMON/RMTBR  /RMTBR<1) 
COMMON/RMEAN/RMEAN  d ) 
COMMON/RTREND/RTRENDC I) 
COMMON/RMAD  /RMADd) 
COMMON/RERSUM/RERSUMd) 

COMMON/XHT  /XNTd) 


/).  / r./  H 


,M6TCD(4) ,IOH,IOR,IPPL,IF 


INTTEM  (CONT) 


940 

590 

960 

570 

580 

590 

600 

610 

620 

630 

640 

630 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

890 

P60 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


COMMON/GEOQ/GEOQ(3) 

C0MM0N/3E0QF/3E0QF<3) 

COMMON/ICDFOR/ICDFOR 

C 

C 

C SET  NUMBER  OF  PERIODS  OF  DATA  INPUT 

C 

IDPER=NDEM 

C 

C READ  DEMAND  DATA  FOR  ITEM  N FROM  LOGICAL  UNIT  LR 

LR=INLU 
IKNT=0 

DO  100  N=l,NITEM 
10  CONTINUE 
C 

C READ  ITEM  DATA  INPUT  FROM  FILE  LR 

C 

IFCINTYPE.  EQ.2)  GO  TO  20 
C 

C READ  BCD  INPUT 

C 

IKNT:IKNT+I 

READ  (LR,  8000,  END=200)  ALC,  FSN,  UM , UCOSK N ) , NOUN,  MGTCD , I OHf 
& LTAaM(N),LTPROD(N),IPPL,IPPPR 

C 

RIPPPR=FLOAT(IPPPR)/100. 

IFdEBUG.  EQ,  1)WRITE(6,8010)IKNT,ALC,FSN,UM,UCOST(N)  ,NOUN| 
4 IOH,IOR,LTADM(N),LTPROD(N) ,IPPL,RIPPPR 

IFCIEBUG, EQ. 1 )WRITE(6,801 5) (1,1=1,10) 

C 

C READ  DEMAND, RETURNS,  AND  R EQ-FREQUENCY 

C 

READ(LR,8000)(IDEMND(N,J),J= 1, IDPER) 

IFdEBUG.  EQ.  1 )WRITE(6,8020)  (IDEMNOCN,  J)  ,J=1  , IDPER) 
READ(LR,8000)(IRETUR(N,J),J= 1, IDPER) 

IFdEBUG.  EQ.  1)WRITE(6, 8030)  dRETUR(N,  J)  ,J=1  , IDPER) 

READ (LR, 8000) (IREQ(N,J),J= 1 , IDPER) 

IFdEBUG.  EQ.  I )WRITE(6,8040)  dREQ(N,J)  ,J=1  , IDPER) 

GO  TO  50 
C 

C READ  BINARY  DATA 

C 

20  CONTINUE 
IKNT=IKNT+1 

READ(LR)ALC,FSN,IR, UM,UCOST(N),NOUN,MGTCD,IOH,IOR, 

4 LTADM(N) ,LTPROD(N) ,IPPL,RIPPPR 

IFdEBUG.  EQ.  I )WRITE(6, 8010)  IK  NT,  ALC,  FSN,UM,UCOST(N)  ,NOUN, 
4 MQTCD, lOH, IOR,LTADM(N) ,LTPROD(N) ,IPPL,RIPPPR 

REAO(LR)ALC,FSN,IR,  IDEMND 

IFdEBUG.  EQ.  1)WRITE(6, 8020)  dOFMND(N,J)  ,J=1  .IDPER) 
READ(LR)ALC,FSN,  IR.IRETUR 

IFdEBUG.  EQ.  1 )WRITE(6, 8030)  (I  RETUR  (N,  J ),  J:  1,  IDPER) 
READ(LR)ALC,FSN,IR,  IREQ 

IFdEBUG.  EQ.  1 )WRITE(6,8040)  (IREQ(N,  J)  ,J=  1 .IDPER) 

C WRITE  INPUT  DATA  TO  FILE  09 


INITEM  (CONT) 


1119 

1120 
1 130 
1M0 
1150 
1160 
1170 
1130 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1230 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 

1399 

1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
19€a 
1570 


i 

I 


C 

c 

c 


3000 

FORMAT(V) 

8010 

FORMAT(/I5, IX, A2 

1X,A2,A4,A6,A3,1X,A2,F1 1 .2, 1X,A6,A4, 

& 

T53.2A1 . 

A4.A2.2X.2I7,3I6.F5.2) 

8015 

F0RMAT(I21 .10110) 

8020 

FORMAT(  IDEMND 

DEMAND/QTR  , (T21 ,10110)) 

8030 

FORMATC  'IRETUR 

RETURN/QTR',(T21 , 10110)) 

8040 

FORMAK  'IREQ 

REQ  /QTR ',  (T21 ,10110)) 

1/ 

50 

CONTINUE 

C 

INDICATE  ITEM  HAS  NDHIS  PERIODS  OF  DEMAND  HISTORY 

c 

NDENT(N)=NDHIS 

C 

C ZERO  DEMAND  HISTORY  RECORDS 
NRETAC(N)=0 
NDEMAC(N)=0 
NREQAC<N)=0 
DO  65  Jrl.NDHIS 
65  NDEMND(N,J)=IDEMND<N,J> 

C SET  INVENTORY  DUE-IN  TO  ZERO 

70  INVDUE(N)=0 
NBOTIJ(N)«0 
NBOPT(N)  = 0 
NORDPT(N)=0 
C 

C LOAD  DEMAND  HISTORY  ARRAYS 

C 

KK=  NDHIS 

DO  1 1=1, NDHIS 

NDEMND(N,KK)=IDEMND(N,I) 

NRETUR(N,KK)  = IRETUR<  N,I) 

NREQ(N,KK)=IREO(N,I) 

KK:KK-  1 

1 CONTINUE 
C 

C SLIDE  DOWN  DATA  IN  DEMAND  ARRAYS 

C 

KK=  NDHIS+1 
DO  2 I=1,IDPER 
IDEMND(N, I)=IDEMND<N,KK) 
IRETUR(N,I):IRETUR(N,KK) 

IREQ(N,I)=IREQ(N,KK) 

KK:KK+1  4 

2 CONTINUE 


I 


INITEM  (CONT) 

/’  V - / V 


1580 

C 

1590 

C 

1600 

C 

ESTABLISH  BEGINNING  INVENTORY  LEVELS 

1610 

C 

1620 

INVACT(N)=IOH+IOR 

1630 

100 

CONTINUE 

1640 

C 

1650 

c 

INITIALIZE  GROSS  ON-HAND  AND  ON-ORDER  STATISTICS 

1660 

c 

1670 

1 10 

CONTINUE 

1680 

DO  130  N=1,NITEM 

1690 

IF(NDENT(N),LT.0)  GO  TO  130 

1700 

IF(INVACT(N).LE.0)  GO  TO  120 

1710 

IBOPOHd  )=IBOPOH(l  )+l 

1720 

IB0P0H(2)=IB0P0H(2)+INVACT(N) 

1730 

IBOPOH(3)=IBOPOH(3)+IFIXCUCOST(N)*FLOAT(INVACT(N)) ) 

1740 

120 

CONTINUE 

1750 

IF(INVDUE(N).LE.0)  GO  TO  130 

1 760 

IBOPORCl )=IBOPOR(l )+l 

1770 

IB0P0R(2)=IB0P0R(2)+INVDUE(N) 

1780 

IB0P0R(3)  = IB0P0R(3)+IFIX(UC0ST(N)*FL0AT(INVDIJE<N))) 

1790 

130 

CONTINUE 

1800 

140 

CONTINUE 

1810 

RETURN 

1820 

200 

WRITE(6,8200) 

1830 

8200 

FORMATd  HI  ,////20X,  'END  OF  FILE  READINF 

1840 

CALL  OUT 

1850 

CALL  OUTCST 

1860 

CALL  PLOTR 

1870 

STOP 

1880 

END 

1890 

$ 

ENDJOB 

Subroutine ; ITRSLT 


Function; 


This  routine  writes  details  of  the 
statistics  associated  with  a given 


performance 
item  to  File 


Description ; 


This  routine  first  converts  recorded  values  of 

floating  point  variables 

stored  in  the  array  RID.  It  then  writes  a single 
binary  record  for  this  item  to  File  08.  Record 
lay  outs  for  this  record  are  defined  in  Vol  I, 

App  B.  See  Vol  I,  Chap  VIII,  for  an  additional 
discussion  of  this  routine. 


< > o cjij  o o 


iiRsiT.o  ourpur  item  peffppmance  statistics  to  fil 


04«-1o-77  12,17^i 


ITRSLT.O  output  ITEIJ  PERFORMAPCF  statistics  to  filers 
SUBPOUTIFE  ITRSLT 

COMMON/FSN/ALC»rSN{«3.Un,  N0UK(2)*f13rCP(4),l0H»I0R,tPPL,IPPPR 

common/ID  EWT/iDEKT,  KB  UN*  IB  EP  I. 

COMMON/iNSTR/INOTB 
COnMON/COSQKC/COSORD(3) 

COMMON/XSMORD/ISMORDf 30.3) 

COMMONVUSORO/ILSOPD  ( 30*3) 

COMMON/POLlcy/ICDEOa.lCDSL 
C0nn0S/ITAtiM/LTAPS(  1 ) 

COMMON /LTPROB/LTP80D(  1) 

COMMON/UcOST/UCOSK  1 ) 

COMMON /IB EOT /IREQK  30.3) 

COMMON/IRETR(|/IRBrRN(30.3  ) 

COMMON/lBA»CDr/lBAK0r{30»31 
CO(1MON/IOROE|/IOROBR(30.3) 

COMMON/INVDAy/INVDAl(30.3) 

COMMON/lrilLT/IriLirfSO, 3 ) 
dimension  RJ0(16,10) 

DIMENSION  RID(16,10) 

ON  FIRST  RBPllCATtON*  ZERO  THE  RJP-ARIAI 


if(ipepl;3T, 1)  SO  To  5o 
DO  10  i^i.lNarp 
DO  10  J*1,  10 
RJDd,  J)«0, 

10  continue 
20  continue 


C convert  INTEQERS  To  floatins  point  foi  ouiput 

c 

TDENIalDENT 

TCDSL=ICDSL 

TRUN^MRUIC 

TLT*LrADM(  1)<-LTPR3D(  1) 

ROH'IOH^IDR 

c compuie  DirrEBENcEs  8r  i*  anb  jd-  abrits. 

C THESE  ARK  THE  OPPBATINO  BFSUlTS  F»R  THE  CURRENT 

c item, 

c 

DO  100  I»1,IN3TR 
RID(I,1)*rRE6T(i,i).R3D(I.1» 

RID(I,2)»lREKT(i,2i-KJD(r.2) 

BID(I,3)«IRErRN(I.ilFRJO(I,3j 

PID(I,U)«rBAKDT{I,11«RJD(I,4) 

RIDII,5)«IBAKDT(I,2)^BJD{I,5) 

RID(I,6)>IOBDeR(I.2)«BJD(t,6I 

RlD(I,71«rN’V0AY{I.2)-RJ0(I,7) 


o o f>  <')  t > r> 


04-16-77 


(< 

100 


12,17ij  rtRSLT.O  ourpur  item  PERFPRMaNCE 

RID(I,8)«rriLl.T(I,  1 Jb8JB(X,8| 
RIDlI,9i«rriLLT(I.2)"ajD( 5,9) 

RID(I,  10)  «C0  5 0Rd(  1)  *ri.OAT{lSHORO(  I,  1 ) )♦ 

CDSO|D(2)*PLOHT(IlOO«D{I,1 ) ) • HJD{I,JO) 

CONTINUe: 


TATISriCS  lo  rXL 


write  RESUITS  to  ElU  08 

WRITE(8)TDBNT,TCDSl,,IBUN,  ALCkrSN,i'l3r6D,UCOST(,1)  ,TJ.T, 
ROK, IXD 


PECORP  CUBREBX  VxtuES  FOR  USB  ON  NEXT  UeI 

DO  3C0  I»1#IN0TR 
DO  300  J«1,  13 

RJDd.  J)»RIDfX,  J)«-RJ0tI»J) 

300  continue 
RETURN 
END 


Subroutine:  LEVEL 


Function: 

This  routine  computes  new  inventory  control  levels 
for  each  item  being  simulated. 


Description: 

Subroutine  LEVEL  first  calls  subroutine  FOR576(N)  to 
update  estimates  of  annual  demand  rate,  the  standard 
deviation  of  demand  in  the  leadtime,  and  average 
requisition  size.  Next,  subroutine  LEVRLN(N)  is 
called  to  compute  new  control  levels  for  item  N. 
After  new  control  levels  have  been  computed  for 
each  item,  LEVEL  creates  the  next  level  calculation 
event  (event  type  6) , and  puts  it  in  the  Future 
Events  List. 


1 0‘**16"7  7 


12.076 


LizV£L 


SUBROUtINK  LIVEL 
COMMON /coShRT/COSHRT 
COMMON/IDLEVI /IDLEVL 
COMMON/lTLEVt/ITLEVL 

common/nitem/nitem 

COMMO|t/MDENl/NDBNT(  1 ) 

DO  10  N«1.N1TEM 
C 

C UPD^TE  ESTIMATES  OF  ANNUAL  DEMAND  RATE(ADR) 

C AND  AVERAGE  REQUISITION  SIZE 

C 

CALL  roF576|N) 

1«57  DO  LOOP  INDEX  N MaY  NOT  BE  BEDBEINEO  IN  CALL  OR  ABNORMAL 
C 

c COMPUTE  NEW  INVENTORY  CONTROL  LEVELS 

C 

CALL  LEVElN(N) 

luS^  DO  LOOP  index  N MaY  NOT  BE  REDEFINED  IS  CALL  OR  ABNORMAL 
1 0 CONTINUE 
C 

c Create  next  leveling  event 

c 

ITLEVL^ITLEVl  ♦ IDLEVL 
CALL  ENTER(IILEVL,6,0,0,0) 

RETURN 

end 


r-i  c 


, RSIGLT, 


function 


function 


Subroutine:  LEVELN 


Function  r 

This  routine  computes  new  reorder,  termination, 
retention,  and  support  levels  for  a given  item  N. 


Description  t 

This  routine  is  controlled  by  the  management  codes 
ICDEOQ,  ICDSL,  and  ICDSLL  provided  as  input  through 
File  05.  These  codes  specify  formulas  to  be  used  in 
computing  order  quantities,  establishing  safety 
levels,  and  limiting  safety  levels,  respectively. 

The  meanings  of  these  codes  are  defined  in  detail 
in  Vol  I,  Chap  VII. 

After  order  quantity  and  safety  level  values  are 
computed,  they  are  bounded  by  input  parameters 
EOQMIN,  EOQMAX,  SLMIN,  and  SLMAX.  The  safety  level 
bounds  are  dependent  upon  bounding  flag  code  ICDSLL. 

VVith  the  current  coding,  safety  level  is  set  to  be 
no  less  than  SLMItl  months  of  supply.  Also,  the 
safety  level  is  limited  to  be  no  more  <-han  either 
(a)  three  times  the  standard  deviation  of  demand 
in  the  leadtime,  or  (b)  the  expected  number  of  units 
to  be  demanded  in  the  leadtime,  whichever  is  smaller. 

The  routine  concludes  by  computing  termination, 
retention,  and  support  levels  using  the  parameters 
GTLF,  GRLF,  and  GSULF. 


noo  *000  orino 


)1  04-16-77 


r 


12.092 

sUbiobtine  leVblh(n) 


L£V£L^ 
p.  I 4i 


THIS  routine  computes  REORDER , STOCK  OB  JECTI  VJi,  REXENriON, 
xeRminatzon#  a»d  support  levels. 


COnHON/ZHBVS/IHBUG 
cohhob/coshrt/coshrt 
COMMON/COShJ-r/COSHLD 
COMMON/COSoRb/COSOBD(3) 

COWMOR/CStBrK/CSTBRK 
cOMMON/osyir/osuLr 

COMMON/ORIF/SRI-F 
COM«ON/OSlr/SSLf 
COHMON/OTlr/aXir 
COMMON/lriEVL/lTLEVi 
COMHON/IdLEVl/IDLEVL 
common/nitem/nitem 

COMMON/POllCf/ICOBOQ,ZCDSI,,!;OQMAX,EOQ«IN,SLMAX,5L«IN,RLr,TLF,SULr 
C0MM0N/ADR/A9R(50) 

C0MM0N/ITAdM/LTADM{50) 

COMMON /IIPbOS/LTPROD (50) 

COMMON/ZRQtX/IRQTKSO) 

C0MM0N/IFL/IBL{50) 

COMMON/IROL/iROL(5u) 

C0MM0N/ISUl/ISUL(50  ) 

COMMON/ZTL/ITL(50  ) 

C0MMON/R5lGlT/RSI0LT(50) 

COMMO|I/REqSIZ/REQSIZ{50) 

COMMON/UCOSX/UCOST( 50  ) 

DATA  Z/1,0/ 

DATA  ITIHIN»IR1-MIN/999999<J9, 99999  999/ 

COMPUTE  Planning  factors 
AMDA-COSHrX 

RLTM*LTADM{M)*LXPR0D(N) 

IF(RIX||,IT.1,  )RLTH  = 0,5 

AD«ADR(N) 

RLX»AD*RLIh/12. 

RMR-AD/12, 

0C«UCO*I{N) 

ADDB«UC*AD 

ESIXMAlE  fXD  deviation  OF  FORECAST  ERRORS 

8Za-RSlGLT(K) 

C SET  COR  equal  to  SMALL  PURCHASE  ORDER  COST 

COR-COSORD ( 1 ) 

C 

c branch  by  eoq  formula  code 


k. 


1 


ooorioo  rio«»  r»oo 


D1  0U«16»77  *12,082 

C 

GO  ro  ( 110, 12^’,  130,  mo,  1S0,  160,  1 70,  1»0,  190  ) .ICDCOO 
c 

c 2 Feb  70  guideline  it*  POLICT 

c 

110  ir ( ADCR.GE, 10. 0, ) GO  TO  82 
GO  TO  200 

62  Xr  (ABD«,3E.500.',  ) GO  TO 

GO  TO  200 
6U  Q»3.*R|(R 
GO  TO  200 


AFIC  57-6  POLICY*— DEC  1876 


120  Q-SQRI(2,*C8R*AD/(C0SHLD*UC) ) 

AC0Sf»Q*UC 

IF  (ACoSTi Ll.OSTBRK ) GO  TO  200 
C0R«C0S0RD(2) 

0-SQBT (2,*C0R*AD/ (C0SHLD*UC  ) ) 

GO  TO  200 
130  CONTINUE 
140  CONTINUE 
150  continue 
160  CONTINUE 
170  CONTINUE 
lao  CONfllUE 
190  CONTINUE 

WRITE|6.8195)ICDE0Q,XCDSL 

8195  FOR«At( *****LEVELN— undefined  FORMULA  CODE,.,. 

* ICDEOO"' ,13, « ICDNI*',I3) 

STOP 


CHECK  order  size  LIMITS 
200  CONTINSC 

EMX»EOe«AX*»HR 
IF(0*Gt,BHX)  0*EMX 
E«X-EOaMXN*R«R 
if{Q,Lr,Enx)  q-bhx 
XriQ.Lt,  1.)Q«  1. 

branch  by  safety  level  formula  code  icdsl 

GO  TO  (310, 320, 330, 340, 350, 360, 370, 380, 390), ICDSL 
2 F|B  70  GUIDELINE  LTR  POLICY 

310  SL-1.*BMR 

GO  TO  |00 
C 

e 21  AUG  68  GUIDELINE  ITR  POLICY 


1 OU-16-77 


12.0S2 


SLi«0,2|»*RIT 
90  TO  SOO 

ATLCH  57-8  POLICY 

Z-SQBt(BEqS(Z(N} ) 

50  TO  358 


Le\/£Lh/, 


pt-pormola  to  mikimize  ukiis  backoroerso 


z-1» 

so  *0  358 


PT-fORKULA  TO  KZVXHIZE  RlQUiSlIIOMS  BACKORDERED 


Z-R|Q0ZZ(n) 


CONTXIUE 

8HUO-l«DA*SlO*(  1,-EXp( .1,4^*0/515)  ) 
DII0II»2.*CoSbLD*UC*Z*  1,8  14*0 
»K»9.707*A105(RKUM/DIIOH) 

Sl-IKtiZO 

50  *0  500 


CONTXIUE 

CONTINUE 

CONTINUE 

CONTINUE 

WRITE{8tBl9S)ZCOEOQ,IC|SL 

STOP 

»i»****************«****»*«4 


CONTINUE 

IIHII  SAFETY  LEVEL 

FIRST, check  HINIMUM 
SLn-S^NXN*NNR 
ir|SL,LT,SlH)SL=SLM 

LXHZIS  SL  TO  LESS  THAN  L|AOTZNE  DEMAND 

SLN-RlT*lMl 

ir(6L.ST.SLH}SL-SLn 

limit  Sl  TO  J,E|S  Than  3*8I0 


SLH»3,*SI8 

IP(8L.0I,SlN}SL-SLN 


non 


1 


Ott-16-77  12i082 


iHL^an^t*******^ ******************************* 
eOKPUti  ISVEIS 
X»QTt(E)«Q*0,5 

XTl(E )*ll«kXtRMR+»LI*»Tir*RHR*0,5 
XRl(Rj*riOJlXtITLJ!R)  )♦9Rt^*RMR4■0,5 
Xr(XfliR),lE»ITI,«IN) 
Xr(XRHR)iLlklRl.«IN)IRL<KJaiRlKIR 
xsui,<iij»asu;r*RLT 
3000  CONXIRHE 

R0L-iL0AT(XR0L(MT) 
irdKeUStNEM  ) RETURN 

MBlT6j6,8903  }N,lRQTr(Nj,XROl(N),iTl(NMRl.(K) 
• 9 3 roiRATlttX, ‘••**HVEI,N-*N"',IS,  ' 1R0TY«',I5,' 

4 ' ITL«',i5,'  rRL-*.l5»'  I5UL-'»X5) 

RETURN 
END 


C Co 

f>,  ^ r-J  '(  I 

I 

I 


»ISUI(N) 
IROL*' ,15, 


Subroutine: 


MAIN 


Function; 

MAIN  is  the  primary  INSSIM  routine.  This  routine 
coordinates  input  of  data/  initialization  of  the 
simulation,  event  sequencing,  and  output  report- 
ing. 


Description; 

This  routine  is  described  in  detail  in  Vol  I,  Chap 

V. 


MAIN 

f,.  i 4^ 


21 
it 
41 
it 
(I 
71 
81 
91 
Iff 
Ilf 
12f 
15f 
14f 
13f 
iCf 
17f 
18f 
19# 
2ff 
21f 
22f 
23  f 
24f 
29f 
2€f 
27f 
28f 
29f 
3ff 
31f 
32f 
33f 
34f 
39f 
3Cf 
37f 
38f 
39f 
4ff 
41f 
42f 
43f 
44f 
49f 
4Cf 
47f 
4ii 


$ 

S 

$ 

$ 

S 

s 

$ 


* 


IDENT  HPf287,A00SC-CALLAHAN 

forty  ieck 

OPTION  FORTRAN 

PRUa  C*,8,S,REQS/11AIN.O 

LIHITS  5,32K 

REMOTE  P*,AC 

REMOTE  $S,AC 

CHARACTER  TEXT«4f 

INTEGER  PX(92),PY(52,4) 


COMMON /B  PER /BPER 
C OHM  ON /C  OS  HL  • /C  OSH  LD 
C OMH  ON /C  OS  OR  D /C  OS  OR  B ( 3 ) 

COHMON/CSTBRK/CSTBRK 
C OHM  ON /C  OS  HR  T /C  OSH  RT 

COMMON/FSB/ALC,FSN(4),UM.NOUN(2).M8TC9(4)  .lOH.IOR  .IPPL.IK 
COMMON /eHROF/BHRQF 
COHMON/QRLF/aRLF 
CGHMON/GROtF/QROaF 
C0MM0N/QSLF/6SLF 
COHMON/GSULF/eSULF 
COMMON /6TLF/QTLF 

COHMON/6UIDI/ICD6IB.NPH,NPOLCY,IDJAXR,IBJAXS,SHORT(lf) 
COHMON/GUIDIl/BEMFAC . ALTHAX .PLTMAX .6RPSEL  .IBEGIN ,IEND 
COHHON/ICDFOR/ICOFOR 
COHHON/ICDSIG/ICDSIG 
COMMON/IOBUG/IDBUQ 
C0HM0N/IEBU6/IEBUQ 
COHMON/IGBUa/IGBUO 
CQHMON/IFBUa/IFBUG 
COHMON/lHBUe/IHBUG 
COMMON /IBOIV/IDBIV 
COHMON/IBENT/IBENT.IRUN  .IREPL 
COHHON/IOLEVL/IOLEVL 
COHHON/IDSTAT/IBSTAT 
COHHON/lDTHt/IBTHQ 
COMMON /IXDEH/IKOEH 
COMMON/INLU/INLU 
COMMON /I HTYPE/INTYPE 
COHHON/IHiTR/IMaTR 
C OHM  ON /I  OiL  1 6/1 OBL 1 6 
COHHON/IPFON/IPFOR 
COHHON/ItTRNB/INTRHB 
COHHON/ISTAT/ISTAT 
COMMON /ISTOCK/ISTOCK  .IDSTOC 
COHMON/ISTOP/ISTOP 
C OHMOH/ITCANB /I TC ABB , IBCANB 


491 

»lf 

311 

321 

331 

341 

331 

3(1 

37# 

381 

391 

(91 

(II 

(21 

(31 

641 

(31 

((• 

(71 

(81 

(91 

7ff 

719 

721 

731 

749 

731 

7(1 

771 

781 

791 

899 

819 

829 

839 

849 

839 

8(9 

879 

889 

891 

999 

919 

929 

939 

949 

939 

9(9 

979 

989 

999 

1999 

1919 


MAIN  (CONT) 

p.  c f 

comhom/itbay/itday 

COMMOti/ITDlV/ITOIV 
C0HH0N/ITF08/ITF0R,IDF0R 
COHHON/ITHQ/ITHQ 
COHNON/ITltfV/ITINV 
COfW  ON/1  TIME /ITIHE 
C OHM  ON /I  TLE  VL /I  TLE  VL 
C OHH  ON /I  TH  NTH /I  THN  TH 
COHHON/I TQTR/ITQTR 
COMMON /I  TWEEK /IT  WEEK 
C OHH  ON /I TY  EAR /I TYE AR 
C OHH ON /NAX8UY /HAXBUY 
C OHH  ON /HBOB AY /MB  OD  AY 
COMMON /NBPER/NBPER 
COMMON /HBMAX /NBM  AX 
COMHON/NBEM/NBEH 
COMMON /NBHIS/NBHIS 
COHMON/NENTRY/NENTRY 
C OHM  ON  /N  FEMA  X /NFEH  AX 
COHHON/NFIRST/NFIRST 
COMMON /NITEM/NITEH 
COMMON /NLOC/NLOC 
C OHM  ON /NL  OCBK /NL  X BK 
COMMON/NRELP/NREPL 

COHHON/NTIHE/NTIHE  t 

C0HMON/POL2CY/1CBEO8, ICDSL .EOQMAX .EOfiMI N ,SLHAX ,SLHI N ,RLF  J i 

COHMON/ADR/ABR(l) 

C0MM0N/1BEHNB/1DEHND( 1,24)  ¥ 

COMHON/IRETUR/IRETURCl  ,24) 

CQHH0N/IRE8/1REQ( 1,24) 

COHMON/INVACT/INVACTC 1) 

COMMON  n NVDUE/INVBUE  < 1 ) 

COMHON/IRL/IRL(  1) 

COMMON /IROL/lROLCl) 

COHHON/lRBTY/lRiTYCl) 

COMMON/ISUL/lSULd) 

COMMON/ITL/ITL( 1) 

COMMON /LT ADM /LTADM  ( 1 ) 

CaHHON/LTPROO/LTPROD(  1) 

COMMON/KNT  /XNT(l) 

COMMON /NBOPT /NiOPT ( 1 ) 

COMHON/NBOTU/NBOTU  ( 1 ) 

COMMON /NBEHAC/NBEMAC  ( 1 ) 

COMMON /NRETAC/NRETAC ( 1 ) 

COHHON/NREBAC/NREBAC(  1 > 

COMMON /NOEHND/NBEHNO(  1 ,24) 

C OMHON /HR  ET  UR /BRE  TUR ( 1 , 24 ) 

COHHON/NREB/HREB( 1 ,24) 

COMMON  /NBEHT  /NBENT  ( 1 ) 

CQHHON/NORDPT/NORBPK  1) 

COMMON  /R  EQHAB/REBMAD  ( 1 ) 

cohmon/reqsiz/Re:qsiz(  1) 

COMMON /R ERSUH/RERSUM  < 1 ) 


MAIN  (CONT) 


/).  3 -1 


1121 
If^f 
ll4f 
1151 
1161 
1171 
1181 
1191 
1111 
nil 
1 121 
1131 
1141 
1191 
1161 
1171 
1181 
1191 
1211 
1211 
1221 
123f 
1241 
1291 
1261 
1271 
128f 
1291 
1311 
1311 
1321 
1331 
1341 
1391 
1361 
1371 
1381 
1391 
1411 
1411 
1421 
1431 
1441 
1491 
1461 
1471 
148f 
1491 
1911 


COMnON/RHAD  /RNAD(I) 
COMMON/RHEAN/RHEAN  ( 1 } 

COMMON /RMRE8S/RHREQS(  1) 
COMNON/RMTBR  /RHTBR(l) 
COMHON/RSiaLT/RSIQLTd) 

COMMON /RTREND/RTRENB(  1> 
COMMON/UCOST/UCOSK  1 > 
COMMON/ILOCFE/ILOCFE(9fff} 
COMMON/JFSN/JFSN(9ll) 
COMMON/JPOINT/JPOINT(9ll) 

C OMMON /J  PR  I OR /JPRI  OR  ( 9 1 • ) 
COMHON/JQTY/JQTY<9#i) 
COMMON/JTIME/JTlHE(9ll) 
C0MM0N/JTYPE/JTYPE(9il) 

COMMON  /lBACPT/IBACPT(lfl> 
COMHON/IBFSNB/lDFSNBdff) 

COMMON /ILOCBK/ILXBX  dll) 
COMMON/lPRlOR/IPRIORdll) 
COMMON/IQTYB/iaTYBdll) 
COMMON/ITMiAC/lTHBACdll) 

COMMON /I BOP/IBOPOH  (3  ) , IBOPOR  (3  > 
COMMON/IBAUTH/liAUTH( 12) 
COMMON/IBPROJ/IBPROJd2) 

C OMM  ON /6E  OQ /GEOQ ( 3 ) 

C0MnOM/6E0aF/6E08F(3) 

CQMM0N/1BACKI/IBACKI(3I,3) 

C0MH0N/IBACkT/IBACKT(3l,3) 

C0MM0N/IBAXBI/1BAKBI(3I,3) 

COMMON/1BA)(BT/1BAKOT(3I,3) 

COMHON/ICANCL/ICANCL(3I.3) 

COMMON/1BISPS/IB1SPS(3I.3} 

C0HM0N/IEXPE0/1EXPEB(3I,3) 

C0MM0N/IFILLI/IFIU.I(3I,3) 

C0MM0N/IFILLT/IFILLT(3I.3) 

CaMH0N/lMV0H/lNV0H(3l,3) 

COMMON/INVBAY/1NVDAY(3I,3) 

COMMON/1NVOR/1HVOR(3I,3} 

COMMON/I  ORBER  /I  ORDER  (31, 3) 

C OMMON /IR AT ON /I RATON ( 31 ,3 > 
COMMON/IRECET /IRECET(3I ,3 ) 
COMMON/IREQC  /IRE8C(3l,3) 
COMMON/IREBI  /IREQ1(3I,3) 
COMMON/1REQT/IREQT(3I,3) 
CQMH0N/1RETRN/1RETRN(3I,3) 
C0MM0N/ISHIPI/ISHIPI(3I,3) 
COMMON/1SH1PT/ISH1PT(3I,3) 
COMMON/ITERM  /ITERH(3I,3) 
COMMON/ITRACE/1  TRACE,  ISTRAC 
DIMENSION  CSH0RT(4) 


MAIN  (CONT) 


1511 

15CI 

I5»f 

1541 

1551 

15(1 

1571 

1581 

1591 

ICII 

1(11 

1(21 

1(^1 

1(41 

1(51 

!((• 

1(71 

1(81 

l(»f 

1711 

1711 

1721 

1731 

1741 

1751 

17(1 

1771 

1781 

1791 

1811 

1811 

1821 

1831 

1841 

1851 

18(1 

1871 

1881 

1891 

1911 

1911 

1921 

1931 

1941 

1951 

1981 

1971 

1981 

1991 

2111 

2flf 

2121 

2131 

2141 

2151 

21(1 

Aft*- 

ttff 


C 

* 


c 

c 

c 

c 


89fi 

I 

c 

c 

c 

8111 

8112 

C 

c 

c 

8113 

8lf4 

i 

4 

4 

4 

C 

c 

c 


8115 


C 

c 

c 


8911 

4 

4 

4 

C 


SET  CODES  FOR  QUIDELINE  REVISIONS 
NPK=2I 
GTLF=24, 

6RLF=12. 

QSULF=I. 

6SLF=1. 
aROQFxI . 


READ  INPUT  DATA 

CONTINUE 

WRITE((.8llf) 

FORMATdHl,  T3 1,  'inventory  SYSTEM  SIMULATOR  //T34, 

RUN  PARAMETERS  '///) 

READ  RUN  IDENTIFICATIONCCARD  TYPE  Cl) 

READ (5 .SCI  1 .ENDx9999>IDENT .TEXT 
FORMAT (V) 

WRITE  C 6. 81 92)1  DENT. TEXT 

FORMAT(  (Cl)  RUN-ID.  '.I(.  TITLE.  .A49) 

READ  OUTPUT  CONTROLS(CARO  CODE  C2) 

READ(5.8II3  )ITWRT .lOUT  .lORAPH  .IPUNCH 
FORMAT (V) 

WRITE((.89M)ITWRT.10UT,IQRAPH.IPUNCH 

FORMAK///'  (C2)  OUTPUT  CONTROLS. ..  (NOTE.  IxyES)  // 

' ITWRT  '.T16. 'iT.WRITEx '.13// 

' IOUT'.TK.  SUMMARY  = .13// 

' IQRAPH  ..T16,  QRAPHS  2.13// 

' IPUNCH  ,T1(.  'punch  2 .13) 

READ  DEBUB  FLAQ6 

READ(5.8993)IDBU6.IEBU8.IFBUG.I8BUG.IHBUG.ITRACE.ISTRAC 
WRITE((. 8995 )IDBUQ.IEBU6.IFBU6. I GBUG. inbug. ITRACE.ISTRAC 
FORMAT (///'  (C3)  DEBUG  FLAGS  // 

TK.  'IDBUQ  X 'li// 

TK.  lEBUG  X .13// 

TK.  IFBU6  x'  13// 

TK.  IGBUG  X .13// 

T K.  'IHBU6  X ',1^3/// 

ITRACE  .TK,  START  TRACE  AT  .I(,  FOR  ITEM  1 / 
' ISTRAC '.TK. 'STOP  TRACE  AT  .!() 

DEFINE  ITEM  INPUT  FILES 

REAB(5. 89I3)IHLU. intype  .NDEM 
VRITE((, 89 19 )IHLU. INTYPE .HBEM 
FORMATC///  (C4)  ITW  INPUT  FILES  // 

, INLU  .XK,  FILE  2',I^3/  , 

, INTYPE  ,T1(,  Type  X 13.  (lx  BCD|  2 x BINARf 
NDEM  .TK.  QTRS  x .13) 


MAIN  (CONT) 


/o,r  7 


2l>f 

Zlfl 

2111 

2121 

2131 

2Mf 

21)1 

21tl 

2171 

2181 

21»f 

2211 

2211 

2221 

2231 

2241 

2231 

22«l 

2271 

2281 

2291 

2311 

2311 

2321 

2331 

2341 

2331 

2361 

2371 

2381 

2391 

2411 

2411 

242f 

2431 

2441 

2431 

24€l 

2471 

2481 

2491 

2311 

2311 

^32l 

2331 

2341 

2338 

£3«f 


C READ  MANAGEMENT  METHOD  CODES  (CARD  TYPE  C3) 

C 

READ(3.8II3}ICDFOR,ICDSIQ.ICDEOQ,ICOSL.1CDSLL,ICDBG.ICDSR 
VRITE(G.8I3I)1C0F0R,ICDS1G.ICDE0«.ICDSL  ,1CDSLL.ICDB6,ICDB 
8131  FORMAT  ( IN  1,/ ' (C3  ) MANAGEMENT  METHODS  TO  B,E  USED  // 

4 ' ICDFOR TIG, 'FORECAST  FORMULA  = ,,I3// 

4 ' ICDSIG '.TI6,  'STD  DEV  FORMULA  = .,13// 

4 ' 1CDE0Q',T16. 'EOQ  FORMULA  = ,13// 

4 ' ICDSL  JIG,  safety  STK  CODE  = ^13// 

4 ' ICDSLL  , TIG.  'SAFETY  LIMIT  CODE  = ,13// 

4 ' ICDBG',T1G,  budget  GUIDE  CODE  = .,13// 

4 ' IC0SR',T1G,  RETURNS  CODE  = ,13) 

C 

C READ  MANAGEMENT  PARAMETERS (CARD  CODE  CG) 

C 

RE AO ( 3 , 8 • 13 )EOGMI N ,EOGMAX ,SLMI N ,SLMAX 
WRITE  (G,8IGI)E0GMIN,E0QMAX,SLM1N,SLMAX  . 
gIGI  FORHAT(///,  ' (CG)  MANAGEMENT  PARAHET^S  // 

4 ' EOftMIN'.TlG,  MIN  EOQ(MNTHS)  ,T4I,F1I.4// 

4 ' EO^AX ',T1G.  'max  EOQ(MNTHS)  ,T4I/1I.4// 

4 ' SLMIN  ,T1G,  MIN  SAFETY  LV(MNTHS)  ,T4l,Flf.4// 

4 ' SLMAX ', TIG,  'max  SAFETY  LV(MNTHS)  ,T4I,F1«.4) 

C 

C READ  system  PARAMETERS (CARD  TYPE  C7) 

C 

READ(3,8II3  X:OSHLD ,CSHORT  ,COSORD(  1)  ,C0S0R0(2>  ,CSTBRK 
WR1TE(G,8I7IX)0SHLD,CSH0RT  ,COSORD(  1 ) ,C0S0RD(2)  ,CSTBRX 
8171  FORMAT(///'  (C7)  SYSTEM  PARAMETERS  /// 

4 ' COSHLD ',T  16,  'holding  COST/$-INV  ,T4I,F1I.4// 

4 ' CSHORT ', TIG, 'shortage  COST  ,T4l  .4F  1 1.4/// 

4 'COSORO(I) ', TIG, 'SHALL  ORDER  COST  ,T4f,Flf.4// 

4 'COSORO(2) ',T1G, 'large  ORDER  COST  ,T4I  ,F  1 • .4/// 

4 'CSTDRX  ,T1G,  COST  BREAK-POINT  ,T4l,FIf.4) 

C 

C READ  SIMULATION  SIZE  PARAHETERS(CARD  TYPE  C8) 

C 

READ(3,8fl3>NRUN,lN8TR,NREPL,NlTEM,NDHIS 
WRITE (G, 8181 )NRUN,1NQTR,NREPL,N1TEM,NDH1S 
8181  FORMAT (///  (CS)  SIMULATION  SIZE  /// 

4 ' NRUN  JIG,  'number  OF  RUNS ',T4f  J3// 

4 ' INGTR  ,T1G,  NUMBER  OF  QUARTERS  J4I,I3// 

4 ' NREPL ',T1G,  'NO.  OF  REPLICATIONS  ,T4I,I3// 

4 ' NITEM ',T16,  'no.  OF  ITEMS/REPL  ,T4l,l5// 

4 ' NDHIS ',T16, 'no.  OF  HISTORY  QTRS  ,T4I,I3} 

C 

C END  OF  RUN  DEFINITION  INPUT 

C 

C 


MAIN  (CONT) 


2371 

23if 

2391 

2(11 

2(11 
2(21 
2(31 
2(41 
2(31 
2(£l 
2(7f 
2681 
2(91 
2711 
2711 
2721 
2731 
2741 
2731 
27(1 
277# 
2 78# 
279# 
till 
2fl# 
tft# 
2S«i 
2f4# 
283# 
28  (# 
287# 
288# 
289# 
29## 
291# 
292# 
293# 
294# 
293# 
29(# 
297# 
298# 
299# 
3### 
3#1# 
3#2# 
3#3# 
3#4# 
3«3# 
3#(« 
3#7# 
3#8# 
819# 
818# 
811# 
811# 


C BEGIN  SIMULATION  ^ 

C 

DO  99  HRUN=1.NRUN 
IRUN=MRUN 

COSHRT:CSHORT(MRUN} 

WRlTE((,8#9i)C0SHRT 
8#9l  FORMAT  ( IH  1,23  ( *♦♦*'),  2(/ '*♦  ), 

I T2t.  BEGIN  SIMULATION  VITH  COSHRT  s ,Fi«.4, 

I 2(/  *♦  ')  ,25(  '♦♦♦♦  ')) 

C 

C INITIALIZE  RANDOM  NUMBER  STREAM 

C 

R4lANDU(-.l) 

C 

C 

REWIND  INLU 
C 

C BEGIN  REPLICATION  LOOP 

C 

CALL  ZERO 

BO  93  KR£PL=i  .NREPL 
IPLOT=# 

IREPL=I(REPL 
13  CONTINUE 
C 

C INITIALIZE  THE  FUTURE  EVENTS  LIST(INITAL) . 

C AND  READ  ITEM  DEMAND  DATA  (INITEM). 

C 

CALL  INITAL 
CALL  INITEM 

IFdBBUG  .NE.  t>  GO  TO  16 
CALL  WRIFEL 
1€  CONTINUE 
C 

C**^***************************^**’¥**’*t**** 

c 

c 

C REMOVE  NEXT  EVENT  FROM  FUTURE  EVENTS  LIST 

C «*«BRANCH  BY  TYPE  OF  TRANSACTION*** 

2#  CALL  REM0VE(ITIME,KTYPE,IP3,IP4,IP3) 

GO  TO  ( 21,  22,  23,  24,  23,  2(,  27,  28,  29.  3#,  31,  32,  3| 
C,  3(,  37,  38,  39),KTYPE 
C 

C**** **************************** ************** 

C 

21  CONTINUE 

C REFLECT  RECEIPT  OF  TRANSACTION 

C REQUISITION 

C 

CALL  REQ(IP3,IP4,IP3,ITIHE> 

GO  TO  21 

22  CONTINUE 

C RECEIPT  OF  SHIPMENT 


MAIN  (CONT) 

P-  7 < ^ 


3Uf 

C 

REFLECT  RECEIPT 

3141 

CALL  RECEIV(IP3,IP4) 

3131 

60  TO  21 

3ttl 

23  CONTINUE 

3171 

C 

3181 

c 

REVIEW  BACKORBERS.  CANCEL  THOSE  OLDER  THAN  HBODAY  BAYl 

3191 

c 

32ff 

CALL  CANCLB 

3211 

60  TO  29 

3221 

c 

3231 

c 

SERVICEABLE  RETURN  EVENT 

3241 

c 

3231 

24  CALL  RET<IP3,IP4,ITII<IE) 

32€l 

60  TO  21 

3271 

23  CONTINUE 

3281 

c 

STATUS  REVIEW 

3291 

CALL  STATUS 

3311 

60  TO  2f 

3311 

26  CONTINUE 

3321 

c 

LEVELS  COMPUTATION 

3331 

call  LEVEL 

3341 

UO  TO  29 

3331 

27  CONTINUE 

3381 

c 

BUY  6UIDELINE 

3371 

CALL  6UIDE 

3381 

60  TO  2f 

3391 

28  CONTINUE 

3411 

c 

BUDGET  REVIEW 

3411 

CALL  BUDGET 

3421 

60  TO  21 

3431 

29  CONTINUE 

3441 

c 

FORECAST  UPDATE 

3431 

CALL  FORUPD 

3461 

60  TO  29 

3471 

39  CMITINUE 

3481 

3491 

c 

33ff 

c 

END  OF  RUN 

3311 

c 

3321 

3339 

IF(ITWRT.Ea.l)  CALL  ITRSLT 

3341 

IF(KREPL.LT.NREPL)  60  TO  93 

3331 

399  CONTINUE 

33(9 

IFdDBUQ.EQ.n  CALL  WRIFCL 

3379 

IFdOUT  .NE.  1>  60  TO  99 

3319 

CALL  OUT 

3399 

CALL  OUTCST 

3(99 

99  CONTINUE 

3(19 

VR1TE((.392> 

3(29 

IFdeRAPH  .EG.  1)  CALL  PLOTR 

3(39 

IFdPUNCH.NE.l)  60  TO  233 

3(49 

DO  232  J:  1.3 

309 

BO  232  Ul.INQTR 

MAIN  (CONT) 

r ^ ' i 


4Mt 

WRlT£(A,3ll)Ii£IT,HRUN.KREPL  ,J  ,I . 

4CTI 

i 

10RDER(1»J  ).INV0H(I,J),INV0R(1.J},IBACKT(I  ,J). 

i«ff 

A 

IBAKBT(I,J},IRETRN(1,J),1REQT(1^},IFILLT(I  .J) 

36»l 

3ft 

FORMAT (31 3, 811 f> 

3711 

3711 

A 

312 

FOBHAKIHI,  1 DEBT  MR  UN  REP  J,  QTR 

T3I,  lORDER  ,T4I,  INVOH  J3I,  INVOR  J6I,  IBACKT. 

T7#,  'IBAKOI ',T8I,  'IRETRN  ,T9#,  IREQT  .TUI,  FILLl 

3721 

A 

3731 

232 

CONTINUE 

374f 

233 

CONTINUE 

3731 

Rs(ITIME-8il)/ITYEAR-»-l 

37CI 

NPLOT= 1 

3771 

WRITE(€.8333}NPLOT^ 

378f 

WRITE (6,8331) 

3791 

WRITE (6,8332)  (1  ,PX(1  ),(PYCI  ,J  ),J=1,4)  ,1  = 1 .IPLOT) 

3811 

GO  TO  99 

3811 

31 

CONTINUE 

3821 

C 

SPECIAL  STATISTICS 

Wi 

CALL  SSTAT(IP3) 

«f4f 

GO  TO  2f 

MSf 

32 

CONTINUE 

*8«f 

C 

DEMAND  PARAMETER  UPDATE 

WTf 

CALL  DEMPAR(1P3,IP4,IP3) 

A«8I 

60  TO  21 

M8« 

33 

CONTINUE 

3911 

IFdTIME.GT.lSTRAC)  60  TO  332 

391# 

c 

RECORD  HISTORY  FOR  ITEM  NPLOT 

3921 

IPLOT  = IPLOT-t-l 

3931 

PX  (IPLOT  )sITIME 

3941 

PYCIPLOT, 1)=INVACT( 1) 

3931 

PY(IPL0T,2)sINVDUE(l) 

39«f 

PY(IPL0T,3)=NB0TU(I) 

3971 

PY(IPL0T,4)=I0iLIQ 

3981 

1F(1PL0T.LT.48)  60  TO  331 

3991 

R=(ITlME-8fi)/ITYEAR-*-l 

4111 

WRlTE(6,e333)NPL0T  ,R 

4111 

WRITE  (6,8332)  (1  ,PX  <1  ),  (PYd  ,J  ) ,J  = 1 ,4)  , I si , IPLOT) 

4121 

8331 

FORMAT ( / / 1 IX , 4HWEEK , 1 IX , 4HT1ME , 8X , 7H0N -HAND , 9X . 6HDUE -I N ,3i 

4f3l 

( 

>ORDERED  //) 

4l4f 

8332 

FORMAT (52(61 15/)) 

4HI 

8333 

FORMAT  ( INI //2fX,22HST0CX  HISTORY  FOR  ITEM  ,1 3 , 1 IX , 3HYEARS  ,S 

4f€f 

IPLOTsf 

4171 

c 

J 


MAIN  (CONT) 


4«SI 

4ft« 

41»l 

4111 

4121 

4131 

4141 

41^1 

4141 

4171 

4181 

4191 

4211 

4211 

4221 

4231 

4241 

4291 

4t4l 

4171 

4tif 

4191 

43ff 

4311 

4321 

4331 

4341 

4391 

4361 

4371 

4381 

4391 

4411 

4411 

4421 

443f 

4441 

4491 

4461 

4471 

4481 

449f 

4911 

491f 

4911 


C WRITE  BACKORDER  FILE 

C 

IFdDBUG.NE.  1 ) GO  TO  331 
DO  298  H=l,IITEn 
IF<NBOPT(N).LE.f ) 60  TO  298 
JPT=NBOPT(W) 

288  CONTINUE 
I=JPT 

WRITE  (6.8444)1  .IDFSNBd  ) ,16TYB(I  ) .IPRIOR  (I ) .ITHBAC  d ) ,IBAl 
8444  FORHATCI  11.918) 

IFdBACPT(JPT).EQ.I)  60  TO  298 
JPT=IBACPT(JPT) 

60  TO  288 
298  CONTINUE 
331  CONTINUE 

IN£XT=ITINE4-ITWEEK 

CALL  ENTERdNEXT  .13.1.1. IPLOT) 

GO  TO  21 
C 

C TURN  OFF  DEBUG  SWITCH  (IDBUG) 

C 

332  IDBUG: I 
GO  TO  2f 
34  CONTINUE 
39  CONTINUE 

36  CONTINUE 

37  CONTINUE 

38  CONTINUE 

39  CONTINUE 

C KTYPE  OUT  OF  RANGE-WRITE  ERROR  MESSAGE 

WRITE<6.1  13)  KTYPE 

113  FORMAT  ( IH  l.21H«44ERR0R4*4  KTYPE:  .13. 3x.  I2K0UT  OF  RANGE) 
STOP 
C 

C END  OF  LOOP 

C 

99  CONTINUE 
99  CONTINUE 
60  TO  If 
9999  CONTINUE 

9998  FORMATC///// ' **44MAIN— END  OF  FILE  19') 

STOP 

END 

$ ENDJOB 

C 


Subroutine:  ORDER 


Function : 

This  routine  performs  the  bookkeeping  tasks 
required  to  reflect  the  placement  of  an  order 
to  replenish  existing  stocks,  and  to  schedule 
the  receipt  of  an  order. 


Description i 

Subroutine  ORDER  first  enters  a type  2 event 
(receipt)  onto  the  Future  Events  List.  This 
will  cause  a receipt  for  IBQ  units  of  item  N a 
leadtime  into  the  future.  Next,  ORDER  updates 
the  variables  lOBLIG  and  INVDUE(N)  which  record 
the  dollar  values  of  obligations  within  the 
current  budget  period  and  the  total  number  of 
units  on  order  for  item  N,  respectively. 
Performance  variables  IBOPSM  and  IBOPLG  are 
next  updated  to  reflect  any  small  or  large 
purchases  which  are  placed  in  the  initial  quarter 
of  the  simulation.  Finally,  subroutine  ORDER 
updates  the  pointer  NORDPT(N)  which  points  from 
item  N to  the  corresponding  receipt  event  on  the 
Future  Events  List. 
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£1 

i§ 

A§ 

51 

€• 

71 

8f 

91 

ill 

111 

121 

151 

141 

15f 

Ul 

171 

181 

191 

2ff 

211 

221 

251 

£41 

29f 

£41 

£71 

281 

291 

511 

511 

521 

551 

541 

551 

541 

571 

581 

591 

411 

411 

421 

451 

441 

451 

441 

471 

481 

491 

511 

9Jf 

>£• 

Ml 

941 


$ lOENT  WP 1287, ADDSC -CALLAHAN 

s forty  deck 

$ PRHFL  C«,W,S^EQS/ORDER.O 

$ REMOTE  P*»AC 

S REMOTE  $$,AC 

SUBROUTINE  ORDERCN .IBB.JTIHE) 

C THIS  ROUTINE  UPDATES  STATISTICS  TO  REFLECT  AN  ORD^R  FORI 

C UNITS  OF  ITEM  N,  WITH  DELIVERY  DATE  SCHEDULED  FOR  JTIHE| 

C PLACES  THE  ASSOCIATED  RECEIPT  TRANSACTION  OH  THE  FUTURE! 

C LIST. 

COMMON /I  DBUO/IDBUG 
C OHM  OH /I  OBL 1 6/ 1 OBL I Q 
COMMON /NLOC/NLOC 
COMMON /CSTBRK /CS  TBRX 
C OMM ON /I SM ORB /ISMORB ( 5 I , 5 ) 

C0MM0N/ILa0RB/IL60RD(5f,5) 

COMMON  /I0RDER/I0RBER(5f,5} 

COMMON  /NOR DPT  /HORDPT  (51) 

COMMON/IHVDUE/INVDUE(5l) 

COMMON /UCOST/UCOST  (51) 

COMMOB/JPRIOR/JPRIOR(5ff  ) 

COMMON /I  TIME /I  TIME 
COMMON/IBOPCT /IB0PSM(5) ,IB0PL6(5) 

C PLACE  ORDER  FOR  IBQ  UNITS 

CALL  ENTER(JTlH£,2.N,ISa.f) 

NPPT=NORDPT(N) 

C UPDATE  STATUS  STATISTICS 

IOBLIG:FLOAT(IOBLia)>FLOAT(IBQ}*UCOST(N) 

INVOUE  (H  )=INVDUE  (N  KIBO 
DWORD: FL OAT (IBQ)«UCOST(N) 

IFdTIME  .LE.  I)  60  TO  111 
CALL  CUM (I ORDER, IBB, N) 

DWORD: FL  OAT  CIBQ ) ♦UCOST (N ) 

iF(DWORD  .6E.  CSTBRK)  CALL  CUMCILGORO ,IBB ,N ) 

IF(DWORD  .LT.  CSTBRK)  CALL  CUM (ISMORD ,IBQ ,N ) 

60  TO  211 

111  IDV0R0:IF1X(DW0R0) 

IF(DVORi  .6£.  CSTBRK)  60  TO  151 
IB0PSM(1):IB0PSM(I)  1 
IB0PSM(2):IB0PSM(2)  -t-  IBQ 
IB0PSM(5):IB0PSH<5)  •*-  IDWORD 
60  TO  211 

151  IB0PL6(l)sIB0PLa(l>  -fl 

IB0PLG(£)=IB0PLa(2)  a-  IBQ 
IB0PLQ(5)xIB0PLQ(5)  a-  IDWORD 

211  CONTINUE 

C ARE  ANY  OTHER  ORDERS  OUTSTANDING  ON  THIS  ITEM 

IF(M0RDPT(M).6T.I}  60  TO  11 
JPRIOR(NLOC  )xl 
60  TO  12 

C UPDATE  ORDER  REFERENCE  DATA 

11  JPRIOR(NLOC)sMOROPT(N) 

C SET  ORDER  POINTER 


ORDER 
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551  12  NORDPT(N)  = iiLOC 

5(1  IFdBBUQ.NE.I  > 60  TO  21 

571  WITE<6,8ill)ll,lBQ,«0RDPT(l»),liPPT.NL0C 

5«f  Sill  FORMAT  (TO  ORBER  ,126,718) 

591  21  CONTINUE 

(If  RETURN 

611  EHB 

621  S ENDJ06 


Subroutine:  OUT 


Function: 


This  routine  produces  a report  of  performance  statis- 
tics which  summarize  results  for  the  entire  simula- 
tion run. 


Description: 

Subroutine  OUT  first  updates  the  variables  INVOH 
(1,1)  and  INVDAY  (1,1)  to  record  last  quarter 
statistics,  that  is,  results  for  period  ITINV. 

Subroutine  OUT  then  produces  9 summary  tables 
which  describe  the  quarter  by  quarter  activity 
observed  during  the  simulation  run.  The  tables 
appear  in  three  separate  formats,  and  each  format 
is  repeated  with  the  performance  statistics  reported 
in  terms  of  the  number  of  actions  that  occurred,  the 
number  of  units  effected,  and  the  total  dollar  value 
of  these  units,  respectively. 

At  the  bottom  of  each  table  the  average  per  year  for 
the  simulation  is  printed.  This  value  is  obtained  by 
totalling  the  quarter  by  quarter  results  within  the 
Scime  column,  and  dividing  this  total  by  the  number  of 
years  that  were  simulated. 


22 

? 

IPE^’T  VP0287  ,ADDSC-C  ALLAHAN 

3Pt 

? 

'^ORTv  deck 

A2 

% 

PR0FL  C*,W,S  ,RECS/OUT.O 

52 

% 

REMOTE  P*,AC 

€2 

$ 

REMOTE  $S,AC 

1? 

r 

SUBROUTINE  OUT 

80 

SUBROUTINE  OUT 

90 

ni'»’E‘'SION  ITOTL(23 ,3)  ,AVEVR(23  ) 

100 

Cowo-'/I  notr/i  MCTR 

110 

COMMOf  /ITIME/ITIME 

120 

CO’^'^n*'/!  T YEA R/ITvEAR 

130 

COM'^O'VITI  NV/ITI  NV 

I ^0 

CO'-vof VI  rvVACT/lNVACT(50) 

150 

COMMOr  /NDE‘'T/NDENT  (50) 

11^0 

CO''vo'.'/^'REPL/NREPL 

1 70 

COvvp'Vf’ITEM/NITEM 

180 

CO'  Y■0^  /I3  0P/IB0P0K(3  ) , IBOPORC3  ) 

190 

CO'-^^O'  /I  BACK  I /I  BACK  I (3  0,3) 

200 

CO'VO-  /IBACKT/IBACKT(30,5) 

21  0 

C0VM0-/I8AKDI /IBAKDI (30,3) 

220 

CO'-MO^'/IBAKDT/IBAKDT  (30,3) 

230 

CO'MO'  /ICANCL/ICANCL(30,3) 

240 

COMMO‘  /IDISPS/IDISPS  (50,3) 

250 

CnvMO''/IEyPED/IEyPED(3  0,3) 

2'^0 

Cowp'  /ifilLI /lEILLI  (30,3) 

270 

Cn'^"ro-'/lFILLT/IFILLT(30,3) 

280 

Cnvvp- VI  ORDER /I  ORDER  (3 0,3) 

290 

CO'-vn-vi  NODAv/I  NVDAv(30,3) 

300 

Cnvvp^  /I  '"'’OH/I  NVOH(30,3) 

310 

CO'-'-o-'  /I  •",-OR/I  MOOR  (30,3) 

320 

CO''»'0«  /IRATOfVIRATON(30,3) 

330 

COVMOV/IRECET/IRECET  (30,3) 

340 

C0'"M0‘VIRECC  /IREOC(30,3) 

350 

''O'-MO'/IREOI  /IREei(30,3) 

360 

Covvo-zirecT/IRECT  (30,3) 

370 

CO'-MO‘/IRETRN/IRETRN(30,3) 

380 

COvyO'VISHIPI  /ISHIPI  (30,3) 

390 

COMMO'  /ISHIPT/ISKIPT  (30,3) 

400 

CO'-MO'  /ITERM  /ITERM(30,3) 

410 

C 

420 

C 

TIDV  UP  LAST  PERIOD  STATISTICS 

450 

c 

OUT  (CONT) 
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44? 
45? 
4<S? 
470 
480 
490 
500 
510 
520 
530 
540 
550 
550 
570 
530 
590 
600 
610 
620 
630 
640 
650 
65  0 
670 
670 
690 
702 
710 
720 
750 
740 
750 

7-’? 

7«0 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 


I 

If  DAv'CI  , n:0 
, 1 ):0 

DO  500  ,NITE(*' 

IFC'TENK'')  .LT.0)  GO  TO  500 
I N'  'OH(I  , 1 ):IN''OH(I  , 1)  + 1 
IF(If''ACTCr  ).LE.0)  GO  TO  500 
If'DAYCI  , 1 ):IMVDAv(I  , 1)+ 1 
500  COfTINUE 

RiFLOAT  (ITI’*lE)/FLOAT(ITvEAR) 

R '':R /FLOAT  (f'l  TEW) /FLOAT  (NREPL) 

DO  201  1:1  ,23 
201  J:  1 ,5 
A''EvR(I  ):0. 

201  ITOTL(I,J):0 
J:| 

2 CO'-^-IMIE 

ASSIGf  41  TO  ISW 
1 IF(J.GT.3)  ^0  TO  000 
RITE(6, 100) 

' RITE(<^,  102) 

RITEC5, 103) 

RITECf . 102) 

"•■n  T0(  10 ,20,50)  ,J 
10  PITEf^,I04) 

''G  TO  4 0 
20  RITE(4,106) 

'0  TO  4 0 

30  RITE(f,107) 

40  0 TO  ISW, (41,51 ,52) 

41  RITE(O,105) 

PITECf ,108) 

RITF(6, 100) 

RITE  (6  , 1 10) 

aRITE('^,121  )IBOPOH(J)  ,IBOPOR(J) 

DO  50  I r I ,I  NCTR 

ITOTLC 1 ,J ):IT0TL(1 ,J )+I NVOHCI ,J ) 

IT0TL(2,J ):IT0TL(2 ,J )+INVOR(I ,J) 

IT0TL(3  , J):IT0TL(3  ,J  )+IRECET(I  ,J  ) 

ITOTL  (4  ,J  ) = IT0TL(4  ,J)  + IRETRM(I  ,J) 

ITnTL(5  ,J  ):IT0TL(5  ,J  )+ISHIPT(I  ,J  ) 

IT0TL(6,J  ):IT0TL(6,J)  + ISHIPI(I  ,J) 

IT0TL(7,J  ):IT0TL(7,J  )+IORDER(I  ,J  ) 

ITPTL  (8,J  )rITnTL(8,J  )+IPEeT(I  ,J  ) 

IT0TL(9,J  ):IT0TL(Q,  J)  + IRECC  (I  ,J  ) 

ITOTL(10,J):  ITOTL  ( 10, J)+IREOI  (I  ,J  ) 

50  RITE(6,120)  I , IN''OH(I  ,J)  ,INV0R(I  ,J  ) ,IRECET(I  ,J  ) ,IRFTRN(I| 

CTCI  ,J)  ,ISHIPI  (I  ,J)  ,I  ORDERCI  ,J  ) ,IRE(^T(I  ,J  ) , I REOC  ( I , J ) , I REO| 
RITE(6. 1 10) 


1 


OUT  (CONT) 

f 3 i ^ 


94? 

RITEC6.2?2)  (ITOTLCI  ,J  ) ,1:  1 , 1?) 

95? 

2?2 

rrR'*'4T(l»?,<^F'»=T0T4LS*,I  1 ? , 9 f 2y  , I 1 ?) ) 

9(^? 

ro  2?3  1:1,1? 

97? 

2?3 

A''E^R(I  ):FLOAT(ITOTL(I  ,J))/R 

98? 

RITE(f,2?4)  (AVEvRd  ) ,I  :1  , 1?) 

99? 

2?4 

'^OR'^ATC  IH?  ,6HAVE/vR,  ly  , l?(3y  ,F9.?) ) 

1??? 

r?  3?5  1:1,10 

1?I? 

3?5 

A'’EVR(I  ):  FLOAT  (I  TOIL  (I  ,J  ))/RN 

I?2? 

RITEC6,3?6)(AVEvR(I ),I:1 ,1?) 

1?3? 

3^4 

?0R'4AT(IH?  ,6HAVE/I  V,  1 y , 1 ? C3y  , F9 .2 ) ) 

I?4? 

ASSIG"  51  TO  ISW 

1?5? 

'f'  TO  1 

I?*"? 

51 

RITF  (6,  1 1 1) 

1?7? 

RITE  C6, ! 12) 

1?8? 

VRITE(6,67) 

1?9? 

DO  5 7 1:1,1  f'QTR 

11?? 

ITOTLC 1 1 ,J ):ITOTL( 1 1 ,J)  + IEyPED(I ,J) 

lit? 

IT0TLC12  ,J  ):ITOTL(  12  ,J  )+IRATON(I  ,J  ) 

112? 

ITOTL(I3,J):ITOTLCI3 ,J)+IDISPS(I ,J) 

I 13? 

ITOTLC 14, J )z ITOTLC 14, J )+ITERMCI ,J) 

1 1 4? 

57 

RITEC6,113)  I ,IEyPEDCI , J) ,IRATONCI , J ) , IDISPS Cl , J ) .ITFRMC^ 

115? 

RITEC6,67) 

1 1 6? 

RITEC6,2?5)C1T0TLCI  ,J),Irll  ,14) 

1 1 7? 

2?5 

'TPTAT  C 1 H?  ,3  ly  ,8Hi'T0TALS*,  4C2y  , I 1?) ) 

118? 

TO  2?f  1:11,14 

1 IQ? 

2?f 

A''FvRCI  ):FLnATCITOTLCI  ,J))/P 

12?? 

RITEC4,2?7)  (AVEvRCI ) ,I :! 1 , 14) 

121  ? 

24>7 

' np  VAT  ( 11(0  ^33X  , 7HAVE/''R  ,4(3y,F9.?)  ) 

122? 

ro  315  1:11,14 

123? 

3 15 

AVFVR  Cl  ):FL0ATCIT0TL(I  , J)  )/RN 

124? 

RITF  C6,3I  6)  CAVE^RCI  ) ,I  =1  1 , 1 4) 

125? 

31  P 

F^'R^ATC  IH?,33y  ,6HAVE/lv,4C3y,F9.2)) 

12^? 

ASSI  Gf'  52  TO  ISW 

12  7? 

^0  TO  1 

12^? 

52 

RITEC6,1 14) 

129? 

RITFC6,1 15) 

13?? 

RITFCf,! 16) 

131? 

RITE  C6,(TR) 

132? 

DO  58  I :I  ,ING'TR 

133? 

IFCIREGTCI  ,J).LE.?)  GO  TO  62 

134? 

T1  :FL0ATCIFILLTCI  , J ) ) /FL  OAT  C I REOT  C I ,J)) 

135? 

^0  TO  63 

13f  ? 

62 

T 1 : ? . 

13"? 

63 

CO''TrT!E 

IFCIRFOI  Cl  ,J  ) .LE  .?)  GO  TO  64 

13S? 

T2:Fl  OATCIFILLI  Cl  ,J  )) /FLOAT  < I PFGI  ( I ,J  )) 

I 4?? 

^0  TO  65 

|41? 

f /s 

CO-  TI  *’IIE 

1 42? 

T2:?. 

143? 

65 

COf'TirUE 

1 /1 4? 

ITOTLC  15  ,J  ):  ITOTLC  15  ,J  )+IBACyTCI  ,J  ) 

145? 

ITOTL(16,J)rIT0TLCI6.J)+IPAGKr  Cl  .1) 

j 


OUT  (CONT) 


4'-0 

4P0 

40(» 

500 

510 

5P 

520 

1 

530 

540 

550 

203 

5^0 

570 

209 

5B0 

590 

<00 

210 

<10 

'20 

630 

325 

<40 

650 

329 

6 0 

670 

<P0 

67 

<90 

6f 

700 

100 

710 

101 

720 

102 

730 

103 

740 

1 04 

750 

105 

7<0 

107 

770 

106 

7S0 

108 

790 

1 

BOO 

lOQ 

PI  0 

820 

1 

«30 

1 1 0 

P40 

1 1 1 

350 

1 12 

3 C n 

' '? 

( 

1 13 

t 1 * 

• A 

1 I • 

» f 

ITOTL(17,J):ITOTL(17,J)+IBAKDT(I  ,J  ) 

IT0-^L(1B,J):IT0TL(18,J)  + IBAKDI  (I  ,J) 

ITOTLC I o.J  ):IT0TL(  1 Q,J  )+INVDA''(I  ,J  ) 
IT0TLC2P',J):IT0TL(2P',J)+IFILLTCI  ,J) 

IT0TL(2  1 ,J  ):IT0TLC21  ,J  )+IFILLI  (I  ,J  ) 

RITE (6,1  17)  I .IBACKT (I ,J ) ,IPACKI (I  ,J  ) , IPAKPT  (I  .J ) , IBAKDI | 
Cl  ‘ ’TAvci  ,J  ),IFILLT  (I  ,J  ) , IFILLI  (I  ,J  ) ,T1  ,T2 
RITE('^,6R) 

RITE(6.22a)  C I T OIL ( I , J ) , I r I 5 , 2 1 ) 

OP-^AT  ( lH2,8y  ,PH+ TOTALS*,  1 X , 7 (I  1 0 ,2y ) ) 
rO  200  1:15,21 

A'.’EVRd  ):FLOAT(ITnTL(I  ,J))/P 

A'7EvR(22):FLOAT(IT0TL(20,J))/FLnAT(ITnTL(R,J)) 

A 'E'^R(23):FLOAT(ITOTL(21  ,J))/FL0AT(IT0TL(10,J  )) 

' OR'^AT  ( 1 HO,  ox,  7HAVE/''R  , 7F  1 2 .0 ,2F  I 4 .3  ) 

RITE('',210)  (AVEvRCI  ),I:15,23) 

DO  325  I : 15  ,23 

A'''^''R(I  ):  FLOAT  (I  TOTL  (I  , J ) ) /R  N 
RITE  (6,320)  (A'-’EvR( I ) ,I  : 15  ,23  ) 
'^0R-»'AT(lHC’,ox,6HAVE/Iv,7F12.2,2F14.5) 

J:J+! 


•0  TO  2 


f'ORf^ATdH  ,35X,2H--,2X,4(12H  

Fopr*lAT(lF  , 1 IX  ,2H-- ,2X  , 7(  12H  

' OP,XAT(  IK!  , /,  /,  /,  /) 

'■npMATdH  ,/,/) 

'ORXATdH  , 43X,44  ( 1H-)) 

'FORMAT  (IK  ,43X.44KP  E P F 0 R A W C E 
‘OR'vATdK  . /.54X,25H***  ACT  I ONS /FS  NOS 


)) 

) .2(  14H 


S T A T I 
*** . /) 


S T 9 


'■^R-*1AT  ( IH 
C -^20825 


/,  /,56X  , 1 
/,  /,56X  , I 7K  ..  . 
1PX.21HIMVENT  ORv 
TOTAL 


DOLLARS  $T<) 

UNITS  ..d 

1NVENT0PV,28X,  67HT0TAL 
REGS  PRIORITv  1) 


ON  HAND 


ON  ORDER 


RECEIPTS! 


C‘'S  SHIPI^ENTS 
CEGUISITI 0*S ) 


SWIPI^ENTS 


PLACED  RECUISITI ONS  CAi 


'P'*'AT  ( 1 HO  , 5 4X  , OHPATI  ONI  NG) 

^p-^ATdH  ,33X,57HPERI0P  EXPEDITES  ACTIONS  DlSPOi 

CXI  f'ATI  O'  S ) 

,35X,I2,2X,4(4X,IP)) 

> '■R''AT(1KO,44X,20HTOTAL  PRIORITY  1) 

R'-ATd!'  ,2(»X,  lOPKTOTAL  PRIORITY  1 BACKORDER  BACKS 

'[*  ' TOTAL  PRIORITY  I TOT  FILLS  PRI  I FI 

n'‘d(|R  , ov  J20KPFPI0D  BACKORDERS  BACKORDERS  DAvS 


• ' A v»  • 


'AYS 


fills 


FILLS 


/TOT  REG'  r 


|»  ^ 7(i<x,IP)  ,2(4X,FIP'.2)) 

:P(4v,IP)) 

. ' -1'  ry  r(4x.rp)) 


Subroutine;  OUTCST 


Function: 


This  routine  prints  a summary  of  ordering  activity 
observed  during  the  simulation  run. 


Description; 

This  routine  prints  a summary  table  describing  the 
number  of  order  actions  taken,  the  number  of  units 
effected,  and  the  total  dollar  value  of  these  orders. 
The  results  are  segregated  in  terms  of  "small  ordering 
actions"  and  "large  ordering  actions".  A small  order- 
ing action  is  defined  as  an  order  whose  total  dollar 
value  is  less  than  CSTBRK  dollars. 

Finally,  subroutine  OUTCST  prints  averages  per  year 
of  each  of  the  statistics  presented. 
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SUBROUTINE  OUTCST 
common/nitem/nitem 
COHNOH/nREPL/NREFL 
COMMOjr/jNoTR/INQTR 
COMMON/ISHORP/ISMORD (30,3) 
C0MMON/Il5oRB/ILG0RD(30,3 ) 
CO«M0N/c0S0»D/C0SORD(3) 
C0MM0N/U0PCr/IBOPSM(3)  ,IB0PLG(3) 
cokkon/csTbRk/cstbrk 


ourcs  / 

/ ^ 2 


DIMENSION  I0UM(3J,IT0I(9) 

LW-6 

C0RD8HiiC0S0RP(  1 ) 

CORPL5"eOS0RD(2) 

DO  1 1*1*9 

1 1T0T<I)«0 
WRlTEdN,  100) 

VRITI(|,H«200) 

VRZlIdWtlOO)  CORCSHtOOEDlG 
NRIH(lN.  300) 

X0U«< 1 )*ZBoP5H( M + IBOpLG(i) 

IDUM<2)«IBOP|H(2)  100910(2) 

IDUM<3)«IB0PSM(3)  + 110910(3) 

WRITEdWiToO)  IBOPSMiIBePlG,IDUM 
00  2 I«1|lN0TR 
DO  3 J*1,3 
K-J  ♦ J 
l-J  ♦ 6 

IDUM<  J)*ISmOBD(I,  J)  IlOORDd.U) 

IIOT< J)*tTOl( J)  * ISMOROCX.J) 

XTOX<ld««IIoT(K  ) ♦ ILGORB(I.j) 

3 XTOT<l)«IToI<L)  IDU«(|) 

2 WIIIIdW,400)  I,aSH0RD<I,J),J»1,3)»  dLG0BD(I,K),Kc1,3),iDUM 
wBindw,5oo)  HOT 

TOTSN*flORTdXOT.(  l ) )*C0RD8M 
T0Tl5»n0AT(ir0T(4)  )*C0BDIG 
TOT-IOTSM  * lOdG 
WRIXEdW|600)  T0TSM,T0TLO,TOT 
WRlTEdW,900)  CSTBRK 
RM-PLOAI(nXTEM*NREPL) 

XOXSH*TOTsn/RN 

TOTlGsTOTlO/RN 

TOX»TBX|K*XoTLO 

WRIX£(;w,605) 

605  roRNAT(//TlO» 'average  COfT/ITEM/ JR ' ) 
WRl9Bf6,600)XOXSM,T0TLG,TOT 

100  fORWAXMHI.^BX.  ■ *****  ORDER  COST  STATISTICS  *•**•') 

Jf'O  FORMATMEO, 'TIME'*  10X, ‘SMALL  ORDERS ',  1 8X,  ' LARGE  ORDERS', 18X, 

1 OROyRS') 

800  PORHAT(1hO,3x»3(4X, 'NUMBER  UNITS  DOLLARS')) 

400  PORHAXflH  ,II»‘*X»3(I6,H0,i10,4X)  ) 

500  FORHAX( 1 HO, 'fOTALS'* 11,1(16.110,110,4X1 ) 

600  rORNAX(lHO. 'SMALL  ORDER  COST  ',£13, 8,'  PLUS  LARGS  ORDER  COST 


TOTAL 


' ,E15 


)1  Ou-16-77  12,087 

1,8,'  EqUMs  total  order  cost  ‘•E15,8) 

700  rORHATl 1H0, ' BOP' ,UX,3(I6»I10,I10» 4X) ) 

800  F0RNAT( IKO.'COST  TO  ORDER ' , UX, F6 , 2# 24X, r6 , 2 ) 

900  FORMAT^KO,  * BOQ  BUY  DOLLAR  BREAK  POINT  ',rl0,2) 

return 

end 
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Subroutine:  PLOTR 


Function: 

This  routine  plots  peformance  statistics  verses 
time  for  several  performance  measures. 


Description: 

This  routine  calls  subroutine  GP  to  produce  four 
separate  types  of  plots.  These  are: 

a.  Requisitions,  cancellations,  and  disposals 
by  quarter. 

b.  On-hand,  on-order,  and  backordered  stock 
by  quarter.  Aggregate  pipeline  stock  is  also 
plotted,  where  aggregate  stock  equals  on-hand  plus 
on-order  stocks. 

c.  Requisitions,  fills,  backorders,  and 
cancellations  by  quarter. 

d.  Cumulative  budgeted  expenditures  and 
cumulative  obligations  (i.e.,  dollar  value  of  orders 
placed)  by  quarter. 
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Subroutine;  RANDU 


Function; 


This  routine  generates  unifonnally  distributed 
random  numbers  on  the  interval  0.  to  1.0. 


Description; 

This  routine  uses  the  congruential  method  to  generate 
pseudo-random  numbers.  A call  of  the  form 

CALL  RANDU  (X) 

where  X is  negative,  causes  the  random  number 
seed  to  be  set  to  the  absolute  value  of  X.  If 
X is  positive,  X has  no  effect  on  the  calculation. 
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Subroutine : 


RECEIV 


Function ; 

This  routine  updates  stock  status  records  to  reflect 
the  receipt  of  a replenishment  order  (event  type  2) 
from  a supplier  of  inventory  system. 


Description ; 

This  routine  updates  stock  status  records  to  reflect 
the  receipt  of  an  order  for  IQTY  units  of  item  N during 
the  current  period.  The  routine  then  initiates  ship- 
ment actions  to  fill  any  outstanding  backorders. 

By  convention,  order  histories  are  maintained  for 
each  item  in  the  form  of  a string-list  ordered  from 
the  newest  to  the  oldest  outstanding  order.  When  an 
outstanding  order  is  received,  this  string  must  be 
updated  to  drop  the  last  element  on  the  string  (orders 
are  assumed  not  to  cross).  The  variable  NORDPT  (N) 
indicates  the  position  in  the  Future  Events  List  of 
the  most  recent  order  for  item  N.  Beginning  with 
this  record,  the  routine  searches  down  the  order  string 
to  locate  the  oldest  order.  The  last  record  on  this 
string  is  the  oldest  order  placed. 

By  convention,  orders  are  terminated  by  setting  the 
order  quantity  to  zero  and  removing  the  order  trans- 
action from  the  Future  Events  List  at  the  regular 
due-in  time. 
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Ott-16-77  1?,090  n 

Rece\\,\  p.  \ 4 z 

subroutine  HBCEIV(N,IQTt)  > ( 

THIS  ROUTINE  UPDATES  |T0CK  STATUS  RECORDS  TO  REfLECX  RECEIPT 
OF  ah  order  for  IQTr  UNITS  OF  HEM  N DURING  PERIOD  I. 

THE  routine  then  INITIATES  SHIPMENT  ACTIONS  TO  FULFILL 

outstanoinr  backorders  IP  any. 
common/idbug/idbuo 

COMMON/NLOcBH/NLOCBK 
C0MM0N/IIEcEf/IRECET(30,3) 

COMMON/I8HIPI/ISHIPI(30,3) 

C0MMON/lSHlPT/ISHIPT(30,3 ) 

C0MM0N/JPRi0R/JPIIOl(50g ) 

COMMON/I0TyB/IQTYB(2OO) 

C0MMON/IPRi0R/IPRIOR(200) 

COMMON/NrOtO/NbOTU(50) 

COMMON/IIOCBk/ILOCBK{200) 

COMMON/NORdPT/NOROPT(50| 

C0MMON/INVACt/INVACT(50) 

C0MMON/INVdUE/INV0UE(50) 

COMMON/NBOPI/NBOPT(50) 

C0MMON/I5Ul/ISUL(5U) 

C0MMON/IgAcPT/IBACPT(20g) 

-"•NoTE*^* 

BY  Convention  order  histories  are  maintained  for  each  item  in 
THE  form  Of  A string  HIT  ORDERED  FROM  THIS  NEWEST  TO  THE 
OLDEST  outstanding  ORDER.  WHEN  AN  OUTSTANDING  ORDER  IS  RECEIVED. 
THIS  STRINS  MUST  BE  UPDATED  TO  DROP  THE  LAST  ELEMENT  ON  THE 
STRING (OrDBRS  ARE  ASSUMED  NOT  To  CROSST,  THE  NEXT  FEW  STATEMENT 

accomplish  this  update, 

NPT«N0|0PT(N) 

IS  THIS  THE  ONLY  OUTSTANDING  ORDER  FOR  THIS  ITEM 
ir(aPRl0R(NPT).NE,0)  GO  TO  10 

SET  POINTS  TO  INDICATE  THERE  IS  NO  LONGER  AN  OUTSTANDING  ORDER 
N0RD?TIK)«0 
GO  TO  15 

SET  pointers  to  search  DOWN  ORDER  STRING 
10  NPP"NPI 

NPT»^PIIOR(NpP} 

IS  NPT  The  oldest  OUTBTANDING  order 
XFdPBvG.NEil)  GO  TO  12 
WRITEd»99l  )nPP,NPT 
12  CONIINOI 

991  FORMATHH  .UHLOOP  ENlERED-,  7h  JPRI0H»,  14 , 4HNPT«,  12  ) 

IF «Jl»X0R(NFf ),NE,0)  GO  TO  10 

THEN  NPT  Is  the  ORDER  JUST  RECEIVED,  REMOVE  THE  RECORD  FROM  THE 
END  OF  The  order  STRING 
3PRIfiR(NPP)«0 

BY  Convention  orders  ari  terminated  by  setting  the  order 

QUANTITY  To  ZERO  AND  lEHOVINO  The  ORDE*  TRANSACTION  FROM  THE 
FUTURE  EVENTS  LIST  AT  THE  REGULAR  DUE-IN  TIME. 

HAS  THIS  OnDER  BEEN  TIRNINATED, 

15  if(1qtt,eq.oi  return 
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C ADjtfST  OROSS  REC*IPT  SIAIISTICS  /?fCe/l/^  p 2. 

JQTr*"lQTX 

CALL  CUH(lREeET,lQTY,H> 
c ADJUST  AsSirs  For  this  itfm 

lSVACX(II)»iKvAcXiN)+IQTT 
INVDUEHJ)«IKvDUE(N)-IQTT 
c ARE  there  ANX  BACKORDERS  ON  THIS  ITEM. 

ir(lI»OPX(NJ,iE.O)  rETURII 
CALI  FlllBo(ll) 

return 

END 


Subroutine: 


REMOVE 


Function; 

This  routine  removes  the  earliest  transaction  from 
the  Future  Events  List,  and  updates  the  chain  list 
structure . 


Description ; 


This  routine  determines  the  "current"  event  to  be 
simulated  within  INSSIM.  For  a detailed  description 
of  the  event  bookkeeping  process,  see  Volume  I, 
Chapter  IV. 
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c f'lfPfNi  ivt'-ii';  riiAip.Anii  iH'iuii'',  ri(f-  ruAiM  sip'irima 

ri)Mh-  ]ti/  ) ni<iii;/ 1 oHiii'. 
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Subroutine;  REQ 


Function; 

This  routine  reflects  the  receipt  of  a customer 
requisition  (event  type  1),  and  associated  shipping 
and/or  backorder  actions. 


This  routine  is  called  a statement  of  the  form 


CALL  REQ  (N,  IQTY,  IPRI,  LTIME) 

Where 

N = item  number  associated  with  the 
current  requisition  event 

IQTY  = quantity  associated  with  this 
requisition 

IPRI  = the  priority  of  the  requisition, 

where  IPRI  = 1 denotes  a high  priority 
requisition,  and  IPRI  = 2 denotes  a 
low  priority  requisition 

LTIME  = the  time  of  receipt  of  the  current 
requisition 

First,  the  subroutine  REQ  updates  the  accumulators  NDEMAC 
(N)  and  NREQAC  (N) . Next,  the  routine  attempts  to  ship  on 
hand  assets  to  fill  this  requisition.  For  low  priority 
requisitions  (i.e.  requisitions  with  a priority  code  = 2) 
units  are  shipped  until  on  hand  stock  reaches  the  support 
level  for  the  item.  For  high  priority  requisitions, 
shipments  are  made  until  on  hand  stock  is  reduced  to  zero. 

If  there  is  insufficient  stock  to  completely  satisfy  the 
requisition,  subroutine  ENTERB  is  called  to  record  a 
backorder  for  this  item. 
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P 


At  the  conclusion  of  the  routine,  subroutine  CUM  is  called 
to  update  shipping  and  fillrate  statistics. 


1 
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5UBRouritii  *E6{K.i3ir,Xf«i.irinB)  R^O.  a I d’  C 

c THIS  RourzNB  Rert.|:zs  rr9csiszh3  or  a requisition  rQi  xqtt 

C UNITS  or  Zim  N QURXRO  PIRXID  I,i«HE|i;  IPRl-1  0BVQTi:;8  A HISN 

C PRIOHjTr  REIUISHIOB;  IPIT*I  DEIOTCI  a low  PlIORXTi  SEQUIStTlON 

C JIIME  OBNOTIS  THB  clock  Xzm  THI  RGB  VAS  RECfIVfU 

C RECORD  REQUlSmON  DATA 

COMMON/RfiQSZZ/IEQStSi&O) 

COMMON/REQ'1AD/|EQMAP(^0) 

COMMOK/HPlflAC/RDinACdOT 

COnMON/NRG0A8/KREaAC(l0) 

COMMON/IRESI  /XREQtI39.3» 

COM«ON/III3T/HEOT(J0.3T 

COMHON/ItiVACT/X»/A8t(|0y 

COMMON/I8UL/IIUL(5U) 

COMHO«/lSHrBl/XSHIfX(30,3) 

COMMOH/ISiirT/XSHIPI(30,3) 

COMHPN/ljrxtlT/iriLLT(30»3) 

COMMOK/IFXHI/XriLLI(30,3) 

COMHPK/NflorU/mOTUtlOJ 
call  CUHiXRBOr.IQTE^Ky 
C IS  THIS  A PIXORZXr  1 RBQ 

irdPRI.HE.I)  SO  IS  20 
CALL  CUNCZREQ||IQT1L*K} 

C UPDATE  demand  ACSUHQLAIOI  AND  EXPOMINTZAlLY  fnOOtH£;D 

20  NDEHAC(N)*NP£MAC(N}tI9ir 
NRE0AC(il)>NRB3Ae(l)^< 

C IS  there  ANf  ST08K  Ql  HaND 

IFdHVACtCm  ,gT,0)  90  TO  US 
C PUT  IKXS  REIUISXTXOI  IN  BaOKQRDIR  status 

CALL  ENTBRB(N,XQTr.IPIX,LTZNE) 

c update  backorder  biatxstxcs 

NBOIU^  N)»II0OTU(N»*tQIP 

return 

C set  ITBSIaSrOCK  RfKAXNXNS  If  THE  ORfiER  HIRE  flLLlD  CINPLETBLT 

DO  XTESIPlMVACIdJ-IQXr 
C IS  XTEST  above  TNI  SUPPORT  bEVEL 

xrdTfSTtsr.xiUKKl r oo  tq  bo 

C IS  THIS  REQ  PRZOIXTP  1 

irdPlI.Rl.D  so  TO  60 

c can  TKB  RBQUXSXIXQII  be  COMPbETELY  lATXSFIID  |ROM  STOJK  ON-HABD 

xrdNVAcTfHi  .le.iQttj  ao  to  b9 

C SHIP  ALL  REIIAZNIN9  QR-HaBD  STOCK  IN  PARTIAL  lUlPlLlRBltT 

C or  THX9  REOUXSlTtOB 

iotys-invactcn) 

C COMPUTE  3UAI7XTT  TO  BE  BICKIROERED  AND  UPDATE  PRX-1  |TATS 

XBK«I0Tr*I3tY| 

CALL  CUMdSKl|X.XQXrs;iT 
I CALL  CUMBdriLLZ;Z3|YS.N) 

I ao  To  65 

c ARE  ON*RaND  ASSEXS  AlONf  TH|  SUPPORT  LEVEL 

60  ir(INVACT(H)  .ISiZSUKDT  oO  Tl  TO 
I C SHIP  DQNN  TO  The  SUPPORT  LEVEL 
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iQTr8«iHVA:r(«i-iiai,(Ri 
C BACrOFOER  TIE  lEnAXfiXNO  QURHTXlr 

XBK»IQry-I3TTf 

(5  CALI  ENT8||B(N^X8K.tPRt.lTZHCi 

c update  srpcK  staXus  tigoiDi 

INVACI(H)*l8V|:T(Hl»tQXt3 

WBOTUiN)PRB0TUt8J*JIK 

C UPDATE  GROSS  PERPORNAKaB  STlfXSTlCS 

v»QTy8fi-lUTrS 

call  cunixsKiPT»iQXrs.8) 

CAH  CUMBfiriLLT.I3lrl»H) 

RETUFR 
TO  CONTIHUE 

C BACKOHDCR  B8TZIC  R|QUXSITXI8 

CALX  rNT8ps{R,xQrr.zPix»LrzN8» 

C update  stork  STITOI  |8cO|0| 

C UPDATE  STOCK  STAlUi  lEcSlDf 

HBOTUiN)*RBOTU{ NJ^tQTP 
§ETU*F 

c SHIP  TO  rxn  The  ekixeb  iBauisxrrOK 

80  IQTTSHQIT 

C UPDATE  THE  STOCK  STATUS  8EC88D5 

XNVACI(H)«IMVACT(K5*IQTYS 
C UPDATE  PERESRHAMSI 

JQTYS«-IUTXS 

CALL  CUflCXSHIPT#XOTrS,fy 
call  CUnCZFILLT.XQCrS.RT 
C IS  This  a PITORXTT  1 RBQUtSSTXOll 

XF(IP8I,MB.M  so  to  li 
C UPDATE  PfirolITf  f srATIsZrCI 

call  CUnCXSHiPX.XQTYS.Ry 
CALL  CUntXriLLX.lQIYS.R) 

85  CONTIKUE 
RETURF 
END 
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Subroutine: 


RET 


Function  t 

This  routine  reflects  the  receipt  of  serviceable  returns 
by  the  supply  system  (event  code  = 4 ) . 


Description: 

First,  the  accumulator  NRETAC  (N)  is  updated  to  reflect 
the  receipt  of  IQTY  units  of  item  N.  Next,  the  perfor- 
mance statistic  IRETRN  is  updated,  and  onhand  assets 
INVACT  (N)  are  increased.  Finally,  subroutine  FILLBO 
is  called  in  an  attempt  to  fill  any  outstanding  back- 
orders . 
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SUb9«UTxiie 

CONHOR/KiETAC/IfREXACd  ) 
e0Nnoil/X]lETRfr/XRBTXN(30,3) 
COMNOK/HIVaCT/IRVACK  1 ) 

COMHO»/HIOPI/NBOPT( 1 ) 

UPPXTl  serviceable  RETURR  ACCUnOLAlOB 

RRETAC(E)«NRBlAC(il)  IQTY 

UPDATE  AGgREQATE  PERFORHANCE  STAIISTXCS 

CALL  CtJH(XRETRN,ZQTY,N) 

update  current  on-hand  ASSETS  FOR  ITEFl  M 

INVACHN)»INVACT(N)  ♦ IQTT 

ARE  TnERE  ArY  backorders  ON  THIS  ITEM 

IF(NiOPl(N)  ,IE,  0)  return 

ELSE  reduce  backorders  BY  AMOUNT  OF  RETURNS 


CALL  FxLLBo(N) 

RETURN 

END 


Subroutine: 


SSTAT 


Function; 

This  routine  updates  time  persistent  and  end  of 
period  statistics. 

Description; 

This  routine  is  called  at  the  end  of  each  simula- 
tion week.  Subroutine  SSTAT  first  updates  the 
performance  statistics  INVDAY,  IBAKDT,  and  IHAKDI. 
These  variables  record  inventory-weeks  and  back- 
order week  measures. 

At  the  end  of  each  quarter,  the  routine  computes 
values  for  the  end  of  period  variables  INVOH,  INVOR, 
IVACKT,  and  IBACKI.  These  variables  record  the 
end  of  period  status  for  on  hand  stocks,  on  order 
stocks,  and  total  backorders  and  priority  1 back- 
orders. The  period  counters  KEND  (which  denotes  the 
week  number  within  the  quarter)  and  ITINV  (the 
current  quarter  number)  are  also  incremented  by 
one  at  the  end  of  each  quarter. 

Finally,  this  routine  ends  by  enterinq  a new  type  11 
event  onto  the  Future  Events  List. 


SSTAT 

P I d 


21 
31 
41 
31 
Cl 
71 
81 
91 
111 
111 
121 
131 
141 
191 
ICI 
171 
181 
191 
211 
211 
221 
231 
241 
291 
2CI 
271 
281 
291 
311 
311 
321 
331 
341 
391 
3CI 
3 71 
381 
391 
399 
411 
411 
4SI 
411 


lOEHT  WPI267,ADDSC-CALL*HAN 
FORTY  lECK 

PRHFL  C«,W.S,RESS/SSTAT.O 
REMOTE  P* ,AC 
REMOTE  $S,AC 
SUIROUTINE  SSTAT(XEN9} 

SUBROUTINE  SSTAT 
COMMOH/IDSTAT/IfiSTAT 
COMMON/ISTAT/ISTAT 
COMMON/ISTOP/ISTOP 
COMMON /I  TIME /I  TIME 
CQMMON/ITINV/ITIHV 
COMMON /I  TOTR/ITtTR 
COMMON /NITEM/NITEH 
COMMON /NBHAX/NBHAX 
COHMON/NLOCBK  /NLOCBK 
COMMON /I NVACT /INVACT (9 I ) 

COMMON /I NVBUE /I NVDUE (91) 

COMMON /NBENT /NDENT (91) 

COMMON/IBACKl/lBACKI  (31,3) 

COMM ON/IBACKT/IBACKT (31,3) 

COMM  ON /IBAKBT/IBAXBT  (31,3) 

COMMON/IBAKil/lBAXBI  (31,3) 

C0MH0N/1NVBAY/1NVDAY(3I,3) 

COMM ON /I NVOH /I NVON (3 I , 3 ) 

COMMON /I  NVOR /I  NVOR  (3 1 , 3 ) 

COMHON/NBOTU/NBOTU(9I) 

COMMON /UCOST /UCOST  (9 1) 

I * ITINV 
BO  91  N=  1,NITEH 
1F(NDENT(N).LE.I)  60  TO  91 
IF(lNVACT(N).LE.f>60  TO  21 
INVDAYd,!)  * INVDAYd,!)  4-  1 
1NVDAY(1,2)  slNVDAYd,2)  INVACT(N) 

INVDAYd  ,3)  s INVDAYd, 3)  4-  IFIX (UCOST (N)*FLOAT (INVACT (N)) 
60  TO  91 
21  CONTINUE 

IF(NiOTU(N).LE.I)ao  TO  91 
NRSsNBOTU(N) 

CALL  CUMB(1BAXDT,NRS,N) 

CALL  CUMB(IBAKDI,NRS,N) 

91  CONTINUE 


SSTAT  (CONT) 


441 

4M 

4<f 

471 

4SI 

491 

311 

311 

321 

331 

341 

331 

3«f 

371 

3I9 

391 

Sil 

€11 

«2I 

«4f 

«3I 

641 

471 

4Sf 

49f 

711 

711 

721 

731 

741 

73# 

74C 

77i 

781 

791 

Ilf 

811 

821 

831 

841 

838 

841 

878 

888 


C UPDATE  REiUlSITIONS'SHORT  COUNT 

C 

NRSsVBHAX-NLOCBX 
1F(NRS.LE.I}  80  TO  48 
IBAKDTCI , 1 }slBAKiT(l , 1 }>HIRS 
IBAKBKl,  l):lBAXiI(l,  D-HIRS 
48  CONTINUE 
C 

KP  s IT8TR/IDSTAT 
IF(KEND.aE.KP>80  TO  188 
KEND  = KEND  4-  1 
60  TO  288 
C 

C UPDATE  END  OF  PERIOD  STATISTICS 

C 

188  CONTINUE 

BO  138  B=l, NITER 
IF(NDEHT(N).LE.8)  60  TO  138 

IF(INVACT(N).6T.8)  CALL  CUR(IHVOH,INVACT(N}  .N) 
1F(NB0TU(N).6T.B)  CALL  CUHBCIBACXT ,NBOTU (N ) ,N) 
IF(HB0TU(N).6T.8>  CALL  CUHBdBACKi  ,NBOTU(N)  ,N  ) 
1F(INVDUE(N).QT.8)  CALL  CUR(INVOR,IHVDUE(H)  ,N} 
138  CONTINUE 
C 

C UPDATE  COUNT  OF  EOP  REQUISITIONS  SHORT 

C 

NRSsNBHAX'HLOCBK 
IF(NRS.LE.8}  60  TO  148 
IBACKTd.  DsIBACXTd,  D^HIRS 
IBACKId,  DsIBACKId.  1»NRS 
148  CONTINUE 
C 

C INCREHENT  PERIOD  COUNTERS 

C 

KEND=1 

ITlNVzlTlNU-f  1 
C 

C CREATE  NEXT  STATISTICS  COLLECTION  EVENT 

C 

288  CONTINUE 

ISTAT  s ISTAT  -f  IDSTAT 

CALL  ENTER  ( ISTAT,  11.K  END, K END  END) 

RETURN 

END 

$ ENDJOB 


Subroutine; 


STATUS 


Function; 

This  routine  represents  a stock  status  review  event 
(event  type  5). 


Description; 

First,  subroutine  STATUS  calls  subroutine  STATN  (N) 
for  each  item  N simulated.  STATN  compares  current 
on  hand  and  on  order  stocks  to  the  inventory  control 
levels  associated  with  item  N.  Finally,  subroutine 
STAT  enters  a new  type  5 event  on  the  Future  Events 
List. 


OU. 16-77  12.098 

subroutine  status 

COMMON/HITeH/HTTBH 

COMMON/ITImB/ITIHE 

COf*MON/lSloCK/J8TOCK,IDSTOC 

COMMON/NDEnI/NDENT(50) 

DO  10 

CALL  StATK(N) 

1457  DO  LOOP  IBDbX  N ttnY  NOT  BE  REDEFINED 
10  CONTINUE 

is«iiime*idstoc 

CALL  EnTER(IS»5«U,0»0) 

return 


S7-/)Tt'S 

IN  CfcLL  OR  abnormal  FUNCTION 


Subroutine: 


STATN 


Function : 

This  routine  compares  the  asset  position  of  item  N 
to  its  precomputed  reorder  point,  termination,  and 
retention  levels.  It  then  initiates  buy  actions 
according  to  the  models  described  in  AFLC/ACDRL 
Working  Paper  73,  March  1974,  by  Robert  J.  Stevens. 


Description: 

This  routine  is  controlled  by  the  code  ICDFOR  provided 
at  input  through  file  05.  Eight  code  values  are 
possible;  these  are  defined  in  detail  in  AFLC/ACDRL 
Working  Paper  73. 

Basically,  each  of  these  alternate  computations  compare 
available  assets  to  the  reorder  level,  and  initiate 
ordering  actions  (using  subroutine  ORDER)  if  appropriate. 
The  formulas  differ  in  the  types  of  assets  which  are 
added  together  to  compare  with  the  reorder  level. 

At  present,  termination  and  disposal  actions  are  not 
coded  into  this  routine.  Consequently,  simulation  of 
termination  and  disposal  policies  are  not  presently 
possible. 


1 


OU-16-77 


12.102 


* 

* 

* 


SUBR0UtIN£  SlATNiK) 

TKXS  XOUtZHG  COKPARgS  THE  ASS£T  POSZTZOH  OF  ITEM  R 
TO  ixs  precomputed  reordbr  point,  and  initiates  BUrS 
accorpxnq  To  the  models  on  serviceable  returns  DES,  In 


COMNON/TPbUO/ZDBUG 

COMHOn/XCdFoR/ICDFOB 

COMMON/ITIME/ITIHE 

COMMON/XTMNIh/ITMNTH 

COMMOB/NBmAe/NBHAX 

COMHON/NLoCBK/NLOCBK 

CO«MON/XKVACt/I»VACT|50) 

COMMON/INVdUE/INVDUEISO) 

COMMON/IROL/IBOL^50) 

COMMON/IRQTT/IRQTKSO) 

C0MM0N/LTADN/LTADn(50) 

C0MM0N/LXPR0|/LTPIOP(50» 

COMMON/HBOTU/NBOTU(50) 

COMMOR/SRFoR/SRrOR.SRHVtSDFOR 

* 

* COMPUTE  InVrNTORI  POSITION 
NRS»NBHAX-NL0CBK 

INP0S*INVACT(N)  ♦ mVDyi(H)  - NBOrUiN) 

IF{fPBU3,EQ* 1) WRITE (OifO 13 )IKVACr (N )» INTPUE (N ), NBOTUIN 
0013  rORHAT(ttX, '****STAIN-»UNITS  0H“' ,Ib,  ' DUE-IN**, 

« I5»*  BO»'»Ib#»  INP0S**,I5,*  FEQ*SH0RT** ,15) 

* 

* GO  to  assigned  SERVIOEABLE  RETURN  MODEL 

* 

00  TO  «91,91,W2,92,92,92.91,91 ) .ICDFOR 

* 

91  CONTINBE 

* 

* MODELS  1f2fS  and  8 FOR  SERVICEABLE  RETURNS 

* IS  INVENToRT  position  on  or  below  reorder  point 

« 

IEOQ>ZigTY(N) 

INVPOSfXNPoS 

99  irdRVpOS  ;gi,  IROKN))  return 

« 

* COMPUTE  total  but  quantity  (EOQ  *>  ROLDFT 

* 

97  IBO-IEoQ  ♦ (IROL(N)  - IRVPOS) 

* 

* COMPUTE  delivery  DATES  FOR  ORDER 

* 

95  IDELIV»ITImE^ITMNTH*(LTADM(N)*IIPROP{N) ) 


statK 

p.l^  3 

F0Rb76 


),inpos,nrs 


place  order  for  ibq  units 


6-77  12,102 

CALI  0|IPER(H,IBQ,IDELZV) 

RETimN 

92  CONTINWE 

COMFUtE  AmMENDED  IFVBNrORY  POSITION 

ISRPfcX*SRPlT  ♦ ,5 
IANFOS*INPoS  + ISRPIT 
INVP0S»ZANPOS 

irdCDpOR  '.EQ,  3)  GO  XO  99 
IFdCOPOR  .01,  5)  GO  TO  94 

IS  AMMBHDEO  INVENTORY  POSITION  ON  OR  BELOW  REORDER  POINT 

FOR  Model  4 only 

XFdRVpOS  .OT,  IROL(N))  RETURN 

compute  procurement  cycle  IEOQ  PERI005 

AND  serviceable  RETURNS  EXPECTED  IN  THIS  CYCLE 

94  IPC-<rLOAI(lRQTY(N ) )/5DrOR)  + .5 
rSRPC*FLOArdPC)*SRFOR  ♦ .5 


REDUCS  reorder  QUANTITt  (EOQ)  BY  EXPECTED  SERVICEABLE  RETURNS 
IN  PROCUREMENT  CYCLE 

IEOO"IIQTY(NJ  - ISRPC 
IFdCDpOR  .OB,  5)  GO  TO  98 
IFdBOQ  ,LTi  0)  IEOQ-0 

COMPUTE  BUX  QUANTITY  FOP  MODEL  ** 

INVPOSsiNPoS 
GO  TO  97 

98  CONTINUE 

IS  inventory  position  on  OR  BELOW  REORDER  POINT  FOR  MODELS  5 AND6 
ZrClNPOS  ,aT,  IROL(N))  RETURN 

compute  Total  buy  quantity  for  model  5 

IBQ-IEOQ  ♦ IBOL(N)  - INpOS 
IFdCDFOR  .EQ,  6)  GO  TO  96 
irdSQ  ,LE.  0)  RETURN 
GO  TO  95 


96  CONTINUE 


' 12tl02 

COMPUTE  TOTII  BUT  QUfcMfITT  FOP  MODEL  6 

AIOOWtS^noAtllBOTIflN)  ) 

IP  I FfcOAl  {IBQI  .LBt  AEOQI  IBQ'AEOQ 
IP(PLOAT(lBO)  .GTt  AEOQJ  IBQ=IBQ 

IPdIU  iLE,  0)  retuen 
60  TO  PS 

CVD 


%rATK 
p.  3 p 


Subroutine: 


WRIFEL 


Function: 

This  routine  writes  to  File  06  all  of  the  current 
elements  in  the  Future  Events  List. 


Description: 

This  routine  provides  a detailed  listing  of  all 
information  currently  recorded  in  the  Future 
Events  List.  See  Volume  1/  Chapter  IV  for  a 
detailed  description  of  routines  WRIFEL,  INFEL, 
ENTER,  and  REMOVE. 
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Subroutine: 


TERMIN 


Function: 

This  routine  terminates  all  or  part  of  the  most 
recent  replenishment  order  (if  any)  still  in  the 
administrative  phase. 


Description: 

Subroutine  TERMIN  terminates  all  or  part  of  the 
latest  buy  (if  any)  still  in  the  administrative 
phase  (i.e.  not  yet  on  contract).  The  routine 
continues  to  terminate  orders  until  either  (a) 
total  assets  terminated  equals  the  termination 
quantity  or  (b)  all  buys  still  in  the  adminis- 
trative phase  have  been  canceled,  whichever 
occurs  first. 

By  convention,  outstanding  orders  are  terminated 
by  setting  the  order  quantity  to  zero  on  the 
Future  Events  List,  and  updating  the  associated 
pointer  structure.  The  associated  receipt  event 
is  not  removed  from  the  Future  Events  List,  however, 
until  the  originally  scheduled  due-in  time. 

Note:  This  routine  was  not  used  in  the  current 

study,  and  may  not  be  compatible  v;ith  other  INFSI^' 
subroutines. 
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SimtvnilT  1 Mt  If-RM  I KJ(  KF  tiN,  I TO  ) 

r.  THIS  (/nUTINI  rtKMIoATFS  All  OK  PART  Of  TMf  lATF^T  KHYIIF  AOV) 

C.  STIFL  IN  THF  A IIM I N I STKA  I I VF  PHASF  (I.F.  NOT  Yf  T ON  COfiFKAfT) 

C ilKTIl.  FlTHFK  (IfTOTAl.  ASSITS  lEKMINATIO  FOOflLS  IMF  IFI'MIMATION 

C OhanTITY  (IIO)  or  (2)ALl  HOYS  STIIL  IN  IHf  A Op  1 N I S T K A M V F PHASf 

C MAVF  RFFN  OANCFLlFn.  KHiroFvFK  (irniKS  first. 

roMpoN/  I nuoi;/  i nmio 
rOMP'lN/  I OHl  I 0/  I OHl  I f; 
common/  I T I Ml  / I T I Ml 
common/ I TMNI H/ I T MNl H 
common/  I NvnoF  / I N Yiior  ( bn ) 
cummon/i  TPRon/i  TPRonibn) 

COMMilN/NORDPT/NOKllPIlbn) 

COMM'lN/llCOSI/HCOSTIbn) 

COMMON/jQIY/.IOTYlbOO) 

CUMMON/JTIMI. /jTlMFIbnO) 

COMMON/JPHKlR/JPKlORlbnc  ) 

COMMON/lTfRM  / I TFKM  ( ,Tn  , ) 

COMMON/|NVOH/INVOR(«ln»>T) 

1 f ( I OHOO . NF . 1 ) on  TO  IR 

RRl1F(fi,RUOCI)lTlMF,KFSN,lTO,NORnPT(KFSN) 

Roon  formati/h  tfrmin.iih.hir) 

IR  CONTINOF 

C AKF  TllFHF  ANY  ORRFRS  OOTSTANDINO  ON  IIFM  KFSN 

I F ( NORHPT ( KF Sn ) . I E . n ) RfTORN 

C OMTAIN  LOCAIION  of  ORHER  HATA  on  FDIOKF  EVENTS  LIST 

?n  KORnrNORnPT(KFSN) 

C,  COMPtlTF  THF  hate  THAT  THE  MOST  RECENT  pORCHASF  hRDFR  CIFAPS 

C THF  ADMINISTRATIVE  PHASE. 

?b  I DOF  r JT  I MF  ( KORI)  ) 

|AnM=iniJE-FIMNTH»LTPROniKFSN) 
c IS  the  order  ai ready  on  CHNTPACT 

If  { I ADM.I  I . I T I Ml  ) RF  torn 

C ni'FS  THE  ORDER  OOANT.  EXCfED  IHF  TFRM  | N A T I O.'*  nOANlIIY. 

I F ( JOT  Y ( KORD  ) . I I . I TO  ) 0 0 TO  4(1 

C DFCRFASE  THI.  (HMIFR  HY  THE  TERMINATION  OOANTITY. 

lOT Y ( KORD ) = JO  I Y ( kORD  ) - I I 0 
c opoatf  on-ordf  r status  RFCOKITS 

INV|iOF(KFSN)=INVdOF(KFSn)-ITO 
I (lot  I 0 = F I OA  i ( I 0H|  IG)-FI  oAT(  I TiJ)*OCnST(Kf  SN) 

I I 0 = - I T (J 

CAI  I COM(  I Tl RM,  I TO.KFSN  ) 

CALI  COM(  I NVOR, JTO. KFSN  ) 

return 

C •••  NOTE  ••• 

C OY  CONVEN  r I ON.  OHTSTANUI  NC,  ORDERS  AR(  fFRMINATED  HY  SFTT|N(; 

c thf  ordfr  quantity  io  /fro  onihf  foihrf  fvfnts  iisr, 

C AND  ijPDATlNn  THE  f SN  CROSS  RFFFRFNCF  STRHCTHRF.  IhI  RFCFIPT 

C TRANSACTION  IS  NOT  RFmOVFD  FROM  ThF  FOTIIRE  EVeNIS  1 1ST  HOWEVER 

C ONTIL  the  ORKJINAU  Y ANTICIPATED  DOF-IN-TIMf. 

C 

c HPHATF  (iN-ORDt  » status  RECORDS 


Ter^MihJ 


09-76 

40  K(JTY  = J01Y(K(iW1I) 

)uTY(KnKn)=o 

Nl)9|)PT  ( KFSN  ) = JPK  I |)«  ( Kl)«li  ) 

(NVIlill-(KFSN)=INVnMr(KFSN)-KljTY 

I()R|  IO  = FIOAT(l(tH|  IG)-Fl^lA^lT(J)*llCnST(K^SN) 

inj=-KOTY 

GAI  L GUM  ( 1 Tl  PM  , K ul  Y , KFSN  ) 

G Al  I GUM  ( 1 N Vnu,  .ITU,  KFSN  ) 

I I f)=  I rU-KUTY 

APF  TUFKF  ANY  nlHLR  ORGbPS  OUISIANDINt;  UN  IIF^  ^FSN 
IF  (NOwnPKKf  SN)  .ni  .0 ) ou  to  ?o 
RF  TURN 
FNII 


Subroutine: 


ZERO 


Function: 

This  routine  zeros  the  INSSIM  statistical  accumulators. 


Description: 

This  routine  is  called  at  the  beginning  of  each  INSSIM 
run  to  zero  the  variables  for  recording  performance 
statistics,  beginning  on  hand  and  on  order  stocks,  and 
obligations. 


ZERO 


P'  I 


10 

S 

lOENT  WP0287,ADDSC*CALUHAN 

20 

$ 

FORTY  DECK 

30 

$ 

PRMFL  C*,W,S,REQS/ZER0.0 

40 

$ 

REMOTE  P4,AC 

50 

$ 

REMOTE  $$,AC 

€0 

SUBROUTIRE  ZERO 

70 

C0MM0M/I0BLIG/I0BLI6 

80 

COMMON/IBOP/IBOPOH(3),IBOPOR(3) 

90 

C0HH0N/IBAUTH/1BAUTH(12) 

100 

C0MH0N/IBPR0J/IBPR0J(I2) 

110 

COMHON/IBACKI/IBACKI(30,3) 

120 

COMHON/IBACKT/IBACKT(30,3> 

130 

COMMON/IBAKD1/IBAKO1(30,3} 

140 

COMHON/IBAKDT/IBAKDT(30,3) 

190 

COMMON/ICANCL/1CANCL(30,3> 

U0 

COMMON/IDISPS/IDISPS(30,3) 

170 

COMHON/IEXPEO/1EXPEO(30,3) 

180 

COMMOM/IFILLI/ IFILLI (30,3) 

190 

COMHOM/IFILLT/IFILLTC30,3) 

200 

COMHON/IIIVDAY/INVDAY(30,3) 

210 

COMHOM/I»IVOH/INVOH(30,3) 

220 

COMMOM/IMVOR/IMVOR(30,3) 

230 

COMHOM/IORDER/IORDER<30,3) 

240 

COHMOM/IRATOH/IRATON<30,3) 

290 

COHHON/IRECET/IRECET(30,3) 

260 

COHMON/IREQC  /IREQC(30,3) 

270 

COMMON/IREQI  /IREQ1(30,3) 

280 

COHHON/1REQT/IREQT(30,3) 

290 

COHMON/IRETRN/1RETRN(30,3) 

300 

COMMON/ISHIPI/ISHIPI(30,3) 

310 

COHMON/ISHIPT/ISHIPT (30,3) 

320 

COMMON/ITERH  /ITERM(30,3) 

0329 

COMHON/ISMORO/ISMORD(30,3) 

0326 

COMMON/ILGORO/ILQORO(30,3) 

0327 

COMMON /IB0PCT/IB0PSH(3),IB0PL6 

330 

c 

ZERO  STATISTICAL  ACCUMULATORS 

340 

IOBLIQ:0 

390 

DO  29  1=1,30 

360 

DO  29  Jsl,3 

370 

ICANCL(I,J>s0 

380 

INVOH(I,J)=0 

390 

INVOR(l,J)s0 

400 

IRECET(l,J)s0 

410 

1RETRN(1,J)S0 

420 

INVDAY(I,J)«0 

430 

IORDER(I,J)s0  • 
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ZERO  (CONT) 

<C 


440 

IDISPS(1,J)=0 

450 

ITERM<I,J)  = 0 

460 

lEXPEDd,  J)  = 0 

470 

IRATON<I,J)=0 

480 

IREQC(I,J)=0 

490 

IREQT<I,J)  = 0 

500 

IREQI(I,J)  = 0 

510 

IBACKT(I,J)=0 

580 

IBACKI(I,J)  = 0 

530 

IBAKDT(I,J)=0 

540 

IBAKDI(I,J)=0 

550 

IFILLT(I,J)=0 

560 

IFILLI(I,J)  = 0 

570 

ISHIPT(I,J)=0 

580 

ISHIPI<I,J)  = 0 

0585 

ISnORD(l,J)= 

0586 

ILQORD(I,J)  = i 

590 

25 

CONTINUE 

600 

C 

610 

C 

ZERO  ON-KA 

620 

C 

630 

DO  110  1=1,3 

640 

1BOPOH(Z)=0 

650 

IBOPOR(1)=0 

0655 

IBOPSN(1)=0 

0656 

IBOPL6(1>=0 

660 

110 

CONTINUE 

670 

RETURN 

680 

END 

690 
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